DANMARKS ST0RSTE TASTE-IND BLAD 




Feerdige programmer til: 

• COMMODORE 64/128 • AMSTRAD -SPECTRUM 

• ZX81 /LAMB DA /POWER 3 OOO /MA RATH ON 

• BBC • ENTERPRISE • m.fl 

Manedens 
stierne- prog ram: 

CAR-RACr 

Tost ind: 
NU ER BASIC 

PA dansk 




leva litets-lis tn i nge r 



Danske 
programmorer: 

"— SADAN KAN DU 

TJENE PENGE MED TAST!" 



DET TYKKE TILBUD: 



Tegn abonnement pa Danmarks 
st0rste program-bibliotek . . . 




Supt 
distribv 



'TAST" er Danmarks storste taste-ind blad. 
Et sandt bibliotek af spsendende kvalitetsprogrammer, 
der nu udkommer fast hver tredie maned. 

Tegn abonnement NU! Ikke bare er 
det den billigste losning, men du far ogsa 
bladet bragt til deren - gerne 34 dage fer 

det udkommer. 

Et helt ar koster bare 122 kroner. EUer omkring 

en krone pr. program ... 

SEND K UPON EN I DAG! 



Ja tak, lad mig tegne abonnement 
pa 'TAST" i et ar (4 numre). 

Jeg han Indsat kr. 122,- pa giro 9 40 60 77 □ 
Vcdlagi en check pa kr. 122,- □ 

Navn 



Adressc 



Computer 

Sendes til: TAST Abonnement 
St. Kongensgade 72 
1264 Kflbenhavn K. 




Kaere laeser. 

Hvad er et godt program vaerd? Eller kan der overhovedet 
siertes pris pa del V 

Vi har allerede gjort det. Nemlig ved at ssette gevinstsum- 
men for "la?sernes bedste program" til 1.000.- kolde, dan- 
ske kroner. Maske kan der slet Ikke saettes pris pa et godt 
program, som titusindvis af TAST-lsesere som dig selv har 
nytte af dag efter dag. uge efter uge. Men faktum er. at 
manedensstjerne-listnlng far 1.000.- kr. kontant. Og end- 
da skattefrit. for at det ikke skal vaere logn! 
Men "we ain't stoppin' yet". Den nye pramiesum er nemlig 
ikke den eneste nyskabelse i dit dugfriske TAST. Se bare pa 
La Petite Programme (LaPP). vores nye hot spot med mas- 
ser af mini-programmer og sma friske rutiner. Eller de 
spa?ndende programmor-profiler. hvor du selv kan lure 
proff erne deres detaljer af. 

Jo. TAST er en succes med nyskabelser. Dit og Danmarks 
storste taste-ind magasin... 

Rasmus Kirkegard Kristiansen. 

Chefredaktor. 



4 De professionelle 

- afslorer deres hemmeligheder 



29 Mastermind 

BBC 



8 La Petite Programme 

Masser af flkse rutiner 



16 Dick Unpin 

Lambda/Power/m.fl. 



18 Ping Pong 

Commodore 64/128 



32 Regnskab 

Amstrad 



35 Ams-Fight 

Amstrad 



38 Tegngenerator 

Commodore 64/128 



20 Road Puzzle 

Commodore 64/128 



24 Car Race 

Spectrum 



41 Light Cycles 

Spectrum 



43 Peacemaker 

Amstrad 



26 Basic pa dansk 47 Joystick-troldmand 

Commodo re 64/128 Spectrum 

28 Buer 

Enterprise 



i 



Klaus Nordfeid 



Rasmus Kirkegflrd Kristiansen 
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Jacob Hei berg 
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Hasiev Fotosais 
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Bargholz Offset Repro 
Partner Repro 
Lassen Offset 
Skovs Bogbmderi 
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St Kongensgade 72 
1264 Kobenhavn K. 
TO. 01 91 26 33 
Postg<ro-nr940 60 77 
Telefax 01 91 01 21 



HST- 

Danmarks sunti laste-M klad 

Samtlige aftrykte listninger er afprovede 
for offentllggorelse Forlaget betaler skat* 
tefrit op til 1000 kroner tor godkendie la?- 
serprogrammer Fortaget har ret til at at- 
trykke godkendte programmer i bladet 
og md offenUiggere dom pA and re tager* 
medta. TAST accepterer listninger til alle 
markedete datamater, blot skal de vaere 
skrevet i det til maskinen mest benyttede 
sprog. Afsender garanterer programmets 
original tie! 



DCA 

Avtspostkontofel 

Hkt bladet ikke frem, hen vend dig da 
(am (A dit lokale postkontor 



TAST udgives ef lorlagel Audio A/S der 
ogsA udgiver "SOFT" "AH om Data", 
"COMputer" "high fidelity" "nyelektro- 

"Svenska COMputer" "Svenska 
SOFT" og HhFI-Arbogen 



KUN I TAST: 




De far deres programmer i bladene og fjener 
penge pa dem. 

Pa overfladen ganske almindelig danskere - 
bare med et indbringende bi-job... 
Her fortasller de for forsfe gang abent om 
deres sma tricks og hvorfor, netop de er blevet 
bedre. Rod, dererguldvaerd. Direkte frastjer- 
ne-programmoreme, de magiske faJ 



for pengenes skyld, men for at fa 
nye udfordringer hele tiden. For 
eksempel har jeg lige sendt endnu 
et program til jet Det er lavet i ma- 
skinkode og forstorrer bogstaver- 
ne 64 gange. Selvfoigelig sender 
jeg programmers md nSr de er 
terdige. for det er naturligvis ogs£ 
rart at tjene penge samtidlg med. 
at man hygger sig. Jeg har llge af- 
sluttet gymnasiet sS til efterSret 
skal jeg ind pi unlversitetet og lae- 
se datalogl- 



havde check pS masktnkoden. jeg 
havde nemllg set I bexjer og laBSt 
nogle blade, mest de engelske bla- 
de. 

Computeren er nu ikke kun mm. 
men ogsS mln fare. sSjeg kunne ik- 
ke beslaglsegge den helt Men nflr 
jeg far en (de. sA tinker jeg over 
den i ca. en uge og sA programme- 
rer jeg, nflrjeg fir tid. Normalt la- 
yer jeg BASIC om til maskinkode. 
Jeg har laert det. jeg kan. ved at 
la?se blade og prove mlg frem, 
godt nok har jeg haft dataleere i 
skolen, men vl terte tkke noget 
Sterligt - sS det giderjeg I hvert fald 
Ikke mere. 

Jeg har Ikke sd meget tid til at pro* 
grammere, for jeg g&r pA EFG. og 
skal senere pd HH. 





Navn: Anders Munch 
Alder 19 Ar 
By: Dronninglund 
Program; Headline 
Tlh C-64 

Bragt: COMputer3/87 
Cevinst: 500.- kr. 

Programmet Headline er egentlig 
skabt p3 en ide f ra Comal -80. hvor 
der findes en sSkaldt statusiinie. 
der fortaeller alt, man bar vide. 
Dvs. hvor meget hukommelse, der 
er brugt (og tilbage). om man er i 
et program, quote-mode o.l. S3 
tsenkte jeg. at det mStte man da 
ogsd kunne gore pi en 64 er. og si 
lavede jeg programmet 



Det er rigtlgt. at programmet er i 
maskinkode. og jeg har eftertidn- 
den ogsS check p5 651 0. Jeg pro- 
grammerede naturligvis i BASIC, 
men det er for langsomt og s& er 
der sA meget man Ikke kan gare - 
derfor Jcsrte jeg maskinkode. Jeg 
Idnte en bog pS biblioteket en me- 
get let bog. derforWarede om ma- 
skinkode, si jeg selv kunne afprtf- 
ve det Henad vejen Isertejeg hvad 
man skullegare, for at lave sAkaidl 
umulige ting. Men dajeg ikke hav- 
de en maskinkode -monitor si var 
det meget besvserligt at tare ma- 
skinkode. Derfor lavede jeg forst 
en monitor, selvfoigelig I BASIC. 
Dajeg sd havde check pi masktn- 
koden, lavede jeg en hurtjgere i 
maskinkode, Det var meget sjovt 
og Ikke sd swert som jeg troedel 
Nu beskaeftigerjeg mig mest med 
at forbedre BASIC, dvs. jeg laver 
ny BASIC, flytter hukom- 
melse og andet, der tldsrraesslgt 
er umuligt i normal BASIC. 
Nflrjeg f3r en ide til et program, 
skal det programmeres ii hurtigt 
som muligt, og ndr jeg sidder og 
programmerer, fir jeg ideerne 
samtidig. Jeq programmerer ikke 



Navn: Jorgen Andersen 
Alder: 16 ir 
By; Vlrum 
Program: Hires 64 
Til: C-64 

Bragt: COMputer 2/86 

Gevinst: 500,* kr 



Hires 64 er et masklnkodepro- 
gram. der ger det meget lettere at 
tegne grafik p<i 64'eren. Det giver 
nemitg mulighed for at stette hcj- 
oplosningsstaermen med maskin- 
kode { det er ca. 3000 gange hurti - 
gere end BASIC), tegne linter og 
stette punkter Kort sagt alt man 
har lyst til af grafik, kan laves me- 
get lettere med Hires 64. Jeg flk 
egentlig ideen, fordi jeg syntes, 
det var for besv&rllgt at lave gra- 
fik pa 64'eren og dajeg begyndte 
at tntere5sere mig for maskinko- 
de. lavede jeg programmet udfra 
et. jeg sS i Reference-guiden- Det 
tog cirka to dage at lave, for jeg 




m - Jog pro- 
grammerer 
bedst om 
nation!" 




Navn: Cart Erik w Sorensen 

Alder: 16 ar 

By: Tommeiup St 

Program: Lerenem 

Til: C-64 

Bragt: COMputer 1/87 
Gevlnst: 900*- kr, 

Jeg l£este om ekspertsystemer. 
og lavede et adventureprogram 
udfra ekspertsystemet (dvs. kun- 
5tlg intelligens), Forst Irate jeg en 
masse teoii og s3 vldstejeg altsd 
nok til at lave f,eks n<erenem" 
(Lserenem er et program, der kan 
la?re af dine indtastninger, red.). 
Jeg ssetter mlg ned og taster. nSr 
Jeg enhumar til det. men Jeg har 
ikke meget tid t cjeblikket. (or jeg 
g£r i forste C pA matematisk linie. 
Oet er dog sidan. at nSrjeg fSr en 
ide. sA tinker jeg meget over 
hvordan. den kan leses, og sA set- 
ter jeg mlg hen og taster, og jeg 
glemmer helt tiden. SA sommeti- 
der kan det godt bllve sent (Fak* 
tisk $A programmerer jeg aller- 
bedst om nattenlJJeg er ikke sA 
god til maskinkode. for jeg har 
nemlig kun Isest en lille smule i en 
Dog om assembler, og sA har jeg 
naturligvis provet at lege med in- 
stniktionerne, sA mine program- 
mer er i BASIC eller COMAL-80. 
Jeg er toviigt i gang med et spil. 
det er en blandlng af njm^dventu- 
re-arcade og plottet er nsesten 
som Starwars. Der er en blanding 
af tekst og grafik i splllet. Jeg sy- 
nes. det er meget svEert at lave 
grafik. sa dertor laverjeg det forst 
pa papir og derefter skriver Jeg 
grafikken ind p3 Koala-painter 




UN 



V 



- Hvis jeg Ur 
en god ide, ska I 
den laves sa 
hurtigt som 
muligt.. 




l"- I learned If 
7 fhe hard way!" 



Navn: Lars Ttiorsen 
Alder: 13 Ar 
By: Roskilde 

Program: Malermesteren 
TV : C-16 

Bragt: COMputer 7/86 
Gevlnst: 500.- kr. 

Jeg lavede programme!, fordljeg 
havde brug for nogle sprites til et 
af mine andre programmer (hvor 
du skal styre en mand forbi nogle 
kugler. der falder ned). Ogjeg syn- 
tes. det var for besva?rligt pa den 
normale mSde. Si dette program 
blev till 

Jeg programmerer kun BASIC, for 
maskinkode erfor besva?riigt Min 
far har hjulpet mig meget. Ogsh 
med at fmde ud af BASIC- Han 
hjalp ogsS med at lave prog ram - 
met malermesteren, som jeg jo 
vandt penge pA. 

N3r Jeg programmerer, bruger jeg 
kun den danske manual, for den 
engelske er ikke na?r sS god (Ices; 
tyk), og sA er der heller ikke index I 
den. 

Jeg gSr kun i syvende klasse. men 
er allerede i gang med et tekstspil 
til min C-16. det bliver meget 
spc^ndende. Indtii videre har jeg 
fundet nogle snydenavne. 
Plottet er. at man skal redde en 
prinsesse fra en drage og en ond 
troldmand. Det foregSr i Namia. 
der er en slags eventyriand - lige- 
som i J.R.R Tolklens boger Du kan 
ogs3 made de samme pereoner og 
VcMenersom hos ham, F.eks Gan- 
dalf. som skaffer flere vdben. Der 
vil blive omkring 50 forskellige 
steder. og det vil va?re fserdigt til 
efterSret 

Jeg vil geme va?re korrespondent^ 
ogjeg vil kun have computeresom 
hobby. Jeg gider ikke arbejde med 
computers hele dagenl 



Navn: Claus Andersen 
Alder: 19 Ar 
By: Vedbask 
Program: SpUtscreen 
Til: C-64 

Bragt: COMputer 5/87 
Gevinst: BOO,- kr, 

Jeg lavede egentlig "SpUtscreen" 
som et underprogram i et spil jeg 
lavede. hvorjeg skulle bruge for- 
skellig scroll-hastighed og hssjop- 
loselig grafik Here steder p5 ska?r- 
men samtidig. Og sA var det altsd. 
at jeg lavede dette program. Som 
jeg senere sendte ind. og vandt pi, 
Det er lavet i maskinkode* pga. 
hastigheden og fordi jeg roder 
med rasteren. Det er kun mutigt i 
maskinkode. 

Jeg har ingen assembler, sA det er 
ret tidskravende at programmere 
i maskinkode. Derfor bruger jeg 
ogsA BASIC, nSrjeg skal lave man- 
ge beregninger, for det er mange 
gange lettere end at rode i maskin - 
koden. Jeg Iserte maskinkode for- 
di en af mine venner kunne trylle 
med koden, og det ku jeg ikke - og 
det ville jeg ikke acceptere {han 
skulle I hvert fald ikke va?re bedre 
end mig), 55 jeg fandt nogle bflger 
og Iteste og efterhSnden fikjeg og- 
sA fod pA det. 

Jeg programmerer spontant og 
lytter til musikjeg er helt opslugt 
og sommetider har jeg siddet fra 
kl. otte morgen til ni aftea Det er 
simpelthen sSdan, at fSrjeg en Ide, 
sA skat den programmeres. og n3r 
den ene del virker. gAr jeg videre 
med programmet og ideerne. 
Det hele startede egentlig med 
min far, for han er vild med nye 
ting, si dengang VIC-20 kom 
frem. kabte vi en, (dengang til 
4.500,- kr.K senere (ik vi den star- 
re 64'er. og nu prpverjeg at tjene 
penge til en Amiga. 
Jeg blev student sidste Ar og har 
va?ret et halvt At i Guds eget land. 
USA. Her lavede jeg bl,a noget re- 
search, hvor der skulle bruges en 
grafikcomputer. der kunne anime- 
re 35 genstande i realtime. Det 



lykkedes, men det holdt hirdt (og 
det blev en maskine i 10,000 dol- 
lars klassen). 

Til august skal jeg et halvt Ar til 
Frankng, forjeg vil geme overtage 
mm fare firma. og s4 er det vigtigt. 
at jeg taler flydende engelsk og 
fransk (i hvert fald), for vores for- 
retningsforbindelser er for blot at 
raevne nogle: Spanien, Portugal. 
Frankng. Kjna og Osttyskland. Rr- 
maet handler med artlkler for 
blomsterhandlere. og vi fabrikerer 
bind med tekst (til begravelser) - 
53 jeg overvejer at lave en b3nd- 
tekstmaskine, da bogstaverne er 
brandvarme, nfirbfindene trykkes. 
og en robotarm nok ikke lider sA 
meget som et menneske. Bind- 
tekstmaskinen skal styres af en 
computer. Jeg overvejer hvordan 
jeg skal tA (lavet) hardwares Og 
jeg har aldng pnavet at lave hard- 
ware f0r. si det er en stor udfor- 
dnng. 

Jeg vil geme kombinere min hob- 
by (som er datamater) med mit ar- 
bejde. Jeg h3ber (og tror). at det 
g3r i opfyldelse. 




Navn: Morten Brodersen 
Aider: 18 Ar 
By: Soborg 

Program: Real-time ur 
Til: C-64 

Bragt: SOFT 3/86 
Gevlnst; 600.- kn 

Programmet giver et ur averst p& 
skarmen. og det mente jeg. man 



► 




TACT C 



■ 



i 



ofte kunne bruge. da man jo har 
det med at glemme tiden. naYman 
programmerer. Programmet er la- 
vet i maskinkode. men jeg pro- 
grammerer ogsa" BASIC. C. COMAL 
og PASCAL Jeg er med i et pro- 
grammer! earn, der kaldes Scan- 
Team, vl skal til at udvikle spil til 
Amiga'en. Forresten vandt jeg en 
Piccoline Ijeres sosterblad "Alt om 
Data"*s store skolekonkurrence. 
den solgtejeg, fordijeg llge havde 
kflbt en Amiga - og helt serligt. sa 
var Piccolinen vand mod Amigaenl 
Jeg har lavet en del programmer 
til Amlgaen. de fleste er med tre- 
dlmensionelle tegninger. der dre- 
jes og llgn. 

Jeg er midnatsprogrammar. dvs. 
jeg programmerer om natten. Nar 
Jeg programmerer sidder jeg ofte 
til kl. 04.00 ogjeg haraltid skrevet 
programmet ned (i hvert fald i ho- 
vedpunkter) far jeg satfter mig 
ved computeren. Det got det hele 
meget lettere. Jeg har endvidere 
lavet en bibel over mine egne pro- 
grammer, hvor alle svarene stir. 
Jeg programmerer ALTID struktu- 
reret. det er simpeltben blevet 
min stil. Den. jeg er blevet kendt 
for. 

Altjeg kan. har jeg selv laert. forjeg 
har la=st 10 kilo bager, Dengang. 
jeg begyndte. var det med en 
ZX8 1 og dennes ZBO processor. Vi 
var en gruppe. som alle var interes- 
serede i computere. s3 vi stflttede 
hinanden og gav gode r3d. Godt 
nok har jeg gaet pa aftenskole. 
men jeg la?rte intet nyt. sA det gar 
jeg nok ikke merel 
Jeg er llge blevet student, mate- 
matisk-fysisk (sae'fB'li) ogjeg vll 
geme leese til data-ingenor. s3 
DTH pa Lundtoftesletten bliveret 
usikkert sted til efteraret. Jeg sy- 
nes endvidere at vi har et godt ud- 
dannelsessystem. men der er for 
fa. der tror pa. at danskeme kan 
selv -jeg vil vise at det ka' vil 



Navn; Soren Frahm 
Alder: 16 ar 
By : Lystrup 

Program: Ghost busters 
Til: Lambda 
Bragt: TAST 1/87 
Gevlnsfc 4S0.- kr. 

Jeg var engang i biffen og se 
"Ghostbusters" og straks fik jeg 
ideen til spillet.jeg havde ta?nkt sa 
laenge over. NU skulle spillet lavesl 
Jeg havde faet en Lambda i julega- 
ve. og pa tastaturet var der spo- 
gelser og andre figurer. sa grafik- 
ken var let at lave. Spillet gik ud pa. 
at du skulle skyde spagelserne 
med din laser, ogjo leengere tid. du 
var pa ska?rmen. des mindre blev 
din livslinie. NAr den forsvandt. 
dflede du. Spillet blev lavet i BA- 
SIC, forjeg kunne ikke maskinko- 
de. Jeg har senere la?st mange tus- 
ger. og pa gymnasiet fik vi et 40 ti- 
mers kursus i COMAL Det sprog er 
simpelthenforlet.forefterganske 
kort tid kan du lave alt. du geme 
vil. og sa er det kedeligtl 
Dengang var det s5dan. at jeg v«ei- 
tede ned foran hjemmealteret nar 
jeg kom hjem fra skole - man skulle 
vel slappe af. ikk'? Og sa skete det 
altsa, at programmerne va?ltede 
ud af Eermeme. f.eks har jeg lavet 
et par ekonom (programmer og et 
program, der b0jede tyske verber. 
Det er sjovere end at lave spil. Jeg 
taenkte lidt over, hvadjeg ville, og 
sa satte jeg mig ned og program- 
merede og efter ca. 5 timer havde 
jeg bare det tykke program, der 
bare ku' det der. 

Jeg g3r i 2. g nu. jeg fisker-sild og 
jagerkragerog det ha=nder(ret of- 
te faktisk) at jeg sejler i min fars 
bad. Jeg gider simpelttien ikke le- 
ge med computere mere, det er 
jeg vokset fra - nu opflnderjeg iste- 
det. Og ved den seneste opfinder- 
konkurrencefikjeghele lOOOkro- 
ner for en af mine opfindelser. (En 
limdunk. der ikke kunne stflrkne i 
halsen). 

Jeg vil geme blive konstruktflr el- 
ler arkitekt men jeg vil arbejde 
med udvikling. ikke blot vsere ta- 
stemand i et firma. 



Jeg solgte 
min 128'er og 
kobte on 
Amiga." 




SKOMAL 
(COMAL)? - Det 
or for loi!" 



t 



i 




Navn: Kent Pedersen 
Aider: IS ar 
By : Randers 
Program: Skakmat 
Til: C-128 
Bragt: SOFT 3/86 
Gevlnst: 400.- kr. 

Jeg er meget interesseret i skak. 
og derfor lavede jeg dette pro- 
gram, der kunne simulere en slut- 
spilssituation. hvor man spiller 
med iBber og springer mod enlig 
konge. IfBlge alle teoribegeme er 
det muligt at ssette mat - men det 
krjever nogen favelse. Denne 0vel- 
se kan du fa med programmet! Jeg 
fik ideen til at sende programmet 
ind. da jeg havde kabt 'SOFT et 
par gange og ta?nkte. at det ville 
vzere rart med flere lommepenge. 
Grafikken i spillet er ikke god. da 
grafik ikke er min stserke side. 
Narjeg programmerer. erdeti BA- 
SIC, selvom det er langsommere 
end maskinkode. Men maskinko- 
de er meget mere besvajrligt at 
bruge. 

Jeg har overvejet at g& pA aften- 
skole i maskinkode. for det er jo 
trods art meget hurtigere end BA- 
SIC og andre hajniveausprog. 
Jeg er ikke begyndt at program- 
mere pa Amiga'en. forjeg afprover 
stadig Workbench og fa?rdige pro- 
grammer - men bare rolig. det 
kommer! Det. jeg kan. harjeg selv 
lasrt ved at line beger pa skolebi- 
blioteket. Og sa pnsvede jeg mig 
ogsa frem. 

Narjeg (for det meste om aftenen ) 
sa?tter mig foran maskinen. kom- 
mer ideerne langsomt. og sa pro- 
grammerer jeg dem. Jeg har end- 
da va?ret ude for, at jeg fik en god 
ide klokken et og sa stodjeg na- 



turligvis op og begyndte at taste 
og voila: Et program blev til. 
Jeg har pnsvet at tage mig selvl 
nakken og skrive ned F0R.jeg safl 
te mig ved maskinen, men det sjj 
nesjeg ikke var sjovt sa det gorjed 
ikke mere. 

Nu er der godt nok laenge til. at jt 
skal ud af skolen og endnu vil jt 
geme vasre noget med EDB. me 
jeg er bange for. at der efterhar 
den bliver aroejdslpshed - sa ded 
kan godt va?re. at jeg hellere vi 
vaere ingenflir. nar den tid kom 
mer. 



" m Jog pro- 
grammerer 
bedst I sen gen, 
med masser af 
the..." 




Navn: John Johansen 
Alder: 21 At 
By: Roskllde 
Program: Atmoswriter 
ni: Orlc Atmos 
Bragt: SOFT 3/86 
Gevlnst: 800.- kr. 

Jeg lavede Atmoswriter af n«d. for 
jeg manglede vlrkelig et tekstbe- 
handlings-anla?g. Ffiirst lavede jeg 
programmet i BASIC, men det var 
for langsomt, sa da jeg efterhan- 
den la?rte assembler lavedejeg det 
i maskinkode. Det er i avrigt me- 
get hurtigere. 

Jeg har selv laert det, jeg kan. og 
maskinkoden la?rtejeg ved at be- 
nytte manualen og en lille liste 
over maskinkodeinstruktioner. 
Jeg pnsvede mig simpelttien frem. 
Og jeg havde ingen assembler sa 
det foregik ved. at jeg i handen 
skrev maskinkoden og derefter 



6 -TAST 



slog op itabeiierforatse hvad, der 
5kulle ligge hvorl EfterfiSnden blev 
det for meget. ogjeg fremstillede 
en assembler i BASIC, senere {da 
jeg fik ordentlig check pA kode) 
oversattejeg dettilden noget hur- 
tigere maskinkode. 
Jeg harslet ikke lasst nogen bcger . 
men er alligevel nmeligt inde i del 
hete (efterfianden). Jeg program* 
merer Ikke struktureret, men jeg 
laver en lille rutine, og r\Ar den vir- 
ker. fortsartter jeg med naeste ru- 
tine. Som regel fSr jeg nye ideer 
undervejs og de bliver naturligvis 
ogs& kodede. Da jeg havde fuldt 
check p3 maskinkoden. fort>edre- 
Oe jeg mine programmer ved at 
overscette dem til mc-kode. 
N3r jeg ligger I mln varme seng 
med en stor kande te.ja sA er det, 
jeg programmerer bedst. Og det er 
absolut Ingen hindring. at der er 
masser af paplr ved h&ndea Jeg 
skeler ikke til tidspunktet og den- 
gang blev masklnen t*endt tige ef- 
ter skole, 

Nu hvor jeg gAr pA teknikum. skal 
jeg programmere pA PCere og ly- 
sten til at programmere er svun- 
det en hel del sA det er nu si gait 
at jeg kun saetter mig ved maskl- 
nen. nSr jeg er tvunget til det. 



Jeg lukker 
dorene og h&- 

ber, ingen for- 

sfyrror." 

Navn: Uurs Laursen 
Alder: 39 4r 
By: Lystrup 

Program: SuperBASIC 
HI: Amstrad 

Bragfc Alt om Data 4/86 

Gevlnst: 700.- kr. 

Jeg programme rede min Amstrad 
og fandt visse mangier, og CTnk- 
te, at det kunne va?re rart at have 
ftere kommandoer til rSdighed. 
BLa mangledejeg en hurtig cirfcel- 
kommando. Jeg kobte sA en firm- 
ware -manual etdiskdrevog en as^ 
sembler-bog og sA gik jeg i krig. 
Jeg lavede en 'diskoversigt til 
printer* rutine, og den hurtigere 
cirfcel-kommando. samt en del nye 
kommandoer, der alle er samlet i 
SuperBASIC. Det varmeget sp*en- 
dende at lave, da jeg normalt er 
vant til at arbejde med hfljniveau- 
sprog. Min Amstrad karer CP/M, 
og pa min artoejdsplads har vi en 
CP/M oversa*tter. der konverte- 
rer CP/M disks til MS-DOS stan- 
darden Det giver mig mulighed for 



at lave maskinkode pA min Am- 
strad og si konvertere fileme til 
MS-DOS, sA PC en p3 art>ejdet kan 
bruge Sourcekoden. 
Det princip benytterjeg bLa n3r 
Jeg laver CAD/CAM systemer 
hjemme og senere overfflrer det til 
den virtcsomhed. hvor jeg er ansat 
(Jeg er masklningenor og mrt ar- 
bejde bestir bLa i at designe CAD/ 
CAM systemer til bnjg for CNC- 
styrede beartwjdlngs mariner 
(CNC: Computerized Notoric Con- 
trol)). 

Jeg har i min tid programmeret alt 
lige fra BASIC til PASCAL FORT- 
RAN. APL PL/1. 280 og 8080 ma- 
sktnkode. Jeg skriver ogsA en del 
kommunikationsprogrammer til 
RS-232C Alle disse mtiner skal 
bruges til styring af maskineme. 
NArjeg skal lave et program, gAr 
det bedst og hurtigst med en god 
opgave. ogjeg foretrcekkerstilhed 
og vil ikke forstyrres. Efterjeg har 
ffiet ideen. laver jeg et blokdia- 
gram. og ssetter et mSl for. hvor- 
dan dialogen skal vaere. Alle mine 
programmer er modulopbygget. 
det gpr det hele iettere, for hvis 
man skal bruge det samme modul 
I flere programmer, bruger man 
det blot 

Jeg vll Ikke skifte arbejde, for jeg 
laver det, jeg er uddannet til, og 
det er det Jeg geme vil. 
Hvisjeg skal give kommende com- 
puterejere et r£d. sA skaf en maski- 
ne. der kan kare MS-DOS. Ellera vil 
masklnen do meget hurtigt! 




Mln timelon 
la pa SOO kr - 
skattefrit!" 

Navn: Soren Vejrum 
Aider: 19 Sr 
By: Bninderslev 
Program: 62 K RAM 
711: C-64 

Bragt; Aft om Data 4/86 
Cevinst: 1.000.- kr. 



Jeg pro- 
grammorer til 

musik + snacks 

og drikke- 

varer*" 



Jeg fik ideen til programmet. da 
jeg ofte var ude for. at jeg skulle 
bruge et andet program, mensjeg 
allerede havde et i lageret. og sA 
syntes jeg, at det var for besvcer- 
ligt at man skulle gemme pro- 
grammet i lageret, f0r man kunne 
loade og bnjge det andet Og s5 
var den sieve 1 54 1 jo ogs3 en god 
grund. Ikke? 

Derfor lavede jeg "62 K Ram\ der 
giorde. at man - nSr man havde 
indltEst 62 K Ram - kunne bruge 
de 24 til Ramdisk, hvilketjo gav en 
500 gange storre savehastighed 
end 1541'eren havde. Samtidig 
ville folk Jo tro, at det var en aprils- 
nar (det blev bragt I april-numme- 
ret red. ) og det qjorde det dob- 
belt sjovt 

Jeg lavede programmet til en 
64'er, men nu harjeg kflbt en Ami- 
ga, sA 64'eren er hensat til den fjer- 
nere del af skrivebordet I ojebllk- 
ket roderjeg med maskinkode til 
Amigaen. men lidt BASIC tager 
man vel ikke skade af. Jeg har pro- 
grammeret PASCAL LOCO, CO- 
MAL 6510 maskinkode og nu 
68000 maskinkode. og selvom 
AmigaBASIC er temmelig god, sA 
er det irriterende. at man skal bai- 
ge musen til at list'e osv, 
Jeg har selv Isert alt, jeg kan. for 
jeg bruger ca. 200,- kr pA blade 
hver mSned. Samtidig harjeg haft 
tid til at prove mig frem og la*se 
nogle boger Jeg var Ixnge om at 
laere 6510 maskinkode. men 
68000 er ikke s3 sv^rt. nfir man 
fprst har fattet. hvad mc-kode er 
Da jeg lavede programmet 62 K 
Ram. bnjgtejeg ca, 4 timer p3 pro- 
grammet OG den loader der blev 
offentltggjort kortefter, iaitfikjeg 
2000 kr- skattefrit. det er jo en 
ganske god timelon Jeg program- 
merer bedst om natten. da jeg q&r 
p3 HH (jeg er lige blevet terdig). 
heist skal der llgge noget" Heavy 
Metal pa pladetallerkenen far jeg 
ffller mig 1 mit es, NSrjeg ikke skri- 
ver noget ned. tinker jeg Isnge 
og meget over programmet. for 
ellers gSr der helt kage i program- 
merlngen. 

Jeg synes ikke at folk skal spille. 
men i stedet begynde at program- 
mere. Det er meget sjovere I l«eng- 
den. 



Navn: Michael Brandt 
Alder: 14 Sr 
By: Altered 
Program: Ren ta belt 

111: C-64 

Bragt: SOFT 3/86 Gevlnst: 400.- 
kr- 

Jeg har selv haft probtemer med 
mine joysticks, og derfor taenkte 
jeg, at man da kunne lave et pro- 
gram, der viste. om det varjoystic- 
ket der var noget gait med, og i gi- 
vet tllfcelde. hvad det var. der var 
galtl 

Det er lavet pd en 64'er. men jeg 
har senere f&et en PC-1 0, s& nu sid- 
der jeg og leger med GW-BASIC 
hele dagen (altsd efter skole), Jeg 
har lavet en database et par gange 
og hvergang finder jeg p3 noget 
nyt man kunne f 3 databasen til at 
gore, og s3 begynder Jeg forfra. 
Jeg har ogsi lavet et primitivt teg- 
n^rogram og logoeroJ. Uge i flje- 
blikket pnsverjeg atfinde nye ting 
IMS-D05. 

NSrjeg far en ide til et program. sA 
hopperjeg hjem til hjemmeatteret 
og voldta'r knopdyret og sSdan la- 
verjeg fede programmer {bU min 
database er blevet til p3 den mfl- 
de), Jeg g3r i ojebUkket med en ide 
om at lave en slags GEM system tit 
PC'eren og det skal ligne Amiga"- 
ens og Macintosh* styring. 
Jeg kan programmere BASIC {64* 
BASIC og GW-BASIC) og pS ung- 
domsskolen harjeg haft PASCAL 
det gik meget godt. men vores un- 
dervisningsmateriale skulle retur- 
neres. s& det laerte vi ikke meget 
af. Endvidere blev der leget en del 
med LEGO'S robotter. og det gjor- 
de ikke just undervisningen mere 
PASCAL-minded. 

Jeg er i gang med at la?re 8080 
maskinkode. men det er lidt svart 
da jeg ALORIG har tint bflger eller 
Icest noget som heist Jeg har til 
gengxld fSet meget hjslp af min 
tetter, der ogsS er computergal 
Mln 64 er blev mest brugt til spil. 
da den var meget svebt at pro- 
grammere. 

Jeg gdr stadlg i skole. men jeg 
drammer om at blive systempro- 
grammor, sS jeg skal forst pA gym- 
na5iet (mat-fys) eller ogsS vil jeg 
pA EFG og HH. Fonesten ville jeg 
gerne have en IBM re/2 men jeg 
har ikke 40.000. s3eh.„ ^Jet bliver 
jo nok ikke til nogetl 



TAST-7 




- N&r jeg pro- 
grammerer, 
eksisterer fid 
tr sfed ikke!" 




*avn. 

***** 3? 4 



Jeg artwjder (pS 1 1 ♦ 3r) i et fritids- 
center i Hellerup. og programmet 
Paintbox )28erfaktisk lavet i fri* 
tidscenteret Jeg sad nemlig og 
fortdarede nogle medlemmer 
hvordan. man lavede grafik pA 
1 28'eren. Og efternSnden somjeg 
demonstrerede de forskellige mu- 
ligheder, lavede jeg programmer 
og det blev altsS til sidst til pro- 
grammer. S3 man kan ikke slge, at 
)eg har taenia meget over pro- 
grammer jeg tastede bare,.. 
Jeg programmerer i BASIC, CO- 
MAL 80. PASCAL (standard) og as 
sembler (specielt 6510). Jeg har 
t^rt PASCAL p3 EDB-skolen, hvor 
jeg leesertil EDB-asslstent.jeg er 
snart faerdig og sA vlljeg geme lave 
noget andet. for jeg vil hellere ar- 
bejde med EDB end I et fritidscen- 
ter (hvor vl godt nok har et com- 
puter™™). 

Jeg har torresten ogsA lavet andre 
programmertil Commodore, f.eks 
har jeg lavet et adventure-pro- 
gram som Commodore Denmark 



A/S ville k0be af mig. Jeg tegnede 
en Kontrakt. men Commodore var 
for langsomme, s5 den droppede 
jeg. Jeg har senere oversat pro- 
grammet fra BASIC til maskinko* 
de, og det var sjovt, men ikke vi- 
de re indbnngende Jeg har ogsa la- 
vet et regnskabsprogram. der er 
fuldt konkurTencedygtigt (det 
blevjeg budt 7500.- kr for. men 
jeg ville hellere sa?lge nogle fS stk. 
til en rimelig pris. og det var hel- 
digt, for det har solgt 145 stk. og 
det saslges stadig i buttkkeme). 
N3r jeg skal lave et program. sA 
tenker jeg over, hvad det skal 
kunne, og laver derefter struktur- 
diagrammer og dokumentatlon, 
og s3 er det meget lettere at taste 
programmet ind. Det gor jeg lav- 
rigt bedst om natten med 40 ciga- 
retter og masser af kaffe (den ndr 
som regel at blive kold). Jeg har 
ogs3 lavet Here programmer, og 
det ermit program, dersryrerhvil- 
ke sejlere. som kvalificerer sig til 
OL i Seoul i 88. 



Her er La Petite Pro- 
gramme eller pa godt 
dansk: Lja.P.PA 
Din nye sektion med 
smaprogrammer og 
smarte rutiner, du selv 
kan laegge ind i dine 
egne programmer. 
Lxj.RP. — sektionen, 
der far din computer 
til det umulige! 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 




1 ********************** 

* ** INKEY CODE PROG. ** 

* ** (C> E.H.P. SOFT ** 

* ********************** 



ON BREAK GOSUB 160 
MODE 1 

LOCATE 1, 1: PRINT "Tryk 
WHILE INKEY(a)=-l 
LOCATE 1,3:PEN 2:PRINT 
a=a+ 1 

IF a=80 THEN a=0 
WEND 

PEN 3: PRINT 
PRINT "Inkey koden er: 
PEN 1:PRINT 
PRINT "Tryk <SPACE>" 
WHILE INKEYf 47 ) =- 1 : WEND 
a=0 

GOTO 80 



tasten ned" 



10 ' ** Reset call »* 
20 ' 

30 CALL 0 
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LaPP 



Program: Scroll 
MasKlne: Amstrad 
Gevinst 100 kr. 



.0 



\0 



80 53gg?% 



B o*° £(l ; 



Program met kan scrolle een Dnia 
OgdetgaYfaktiskrimelirjthurtigt 
sae det er helt ok! 
For at du kan <endre teksten i 
scrollllnien. skal du blot a?ndre va- 
riablen AS i iinie 20 og 25. Swedes 
at AS kommer til at indeholde din 
egen tekst til scrollllnien. 
Indsendt at": 
Jacob Schultz 
Passagen 10 
2670 Grew str. 



25 
30 
40 
50 
6 0 
70 

eo 



90r 



ess 



is 
'4 



\0 



3 »P P,' ^ 

*0 no .f < >«*3 
23 



TO 



A 



3ft T« 3 ' R . . J 5,=, 



30 °*r* p^^ee^'^esa 



35 



3^, 
508 
58 



*5«* 



535 
9G 



50] 



©3 



90 SCNCLRJ COLOR 0,H 
100 GRAPH IC 1 , 1 

110 0PEN3,4: PRINT*3,CHR*< 8> 
120 FAST 
130 PCM 
140 DIM BD< 7,7> 
130 FOR Y = 0 TO 139 STEP7 
1 60 : FOR X=0 TO 319 STEP7 
170 : FOR X2=0T06 

180 I F0RY2=0TO6 
190 : LOCATE X+X3,Y*Y2 

200 : IF ROOT* 2 > >0 THEN BD 

2 10 : NEXT Y2 

220 : NEXT X2 

230 : FOR A«0 TO 6 

240 : FOR B=0 TO 6 

230 I IF BD( A,B)=1 

2G0 : NEXT B 

270 : NEXT A 

280 : FOR 1=0 TO 6 

290 : FOR IX-0 TO 6 

300 : P-P+BD< I , IX> 

310 : NEXT IX 

320 1 P-P+128: P» = P*+CHR*< P) 

330 I NEXT I 

340 1 PRINT*3,P*; : P*=" 

330 1 FOR H«0 TO 6 

360 : FOR J*0 TO G 

370 1 BD(H,J)=0 
380 I NEXT J 

390 : NEXT H 

400 t NEXT X 
410 : PRINTd3,CHR*C 13>; 
420 NEXT Y 
430 PLAY " CDEFGAB " 

READY. 



COLOR 4,li COLOR 5, 2: COLOR 1,2 



Program: Fllmmer 
Maskine: C64 

Her har I et program, der laver et 
flot flimmer-mBnster pd ska?r- 
men. Det er smart i f.eks loadere 
s& man kan se at derfaktlsk fore- 
gar noget. og at maskinen ikke er 
helt :.*■ : 



C X2,Y2>=> 1 



THEN BD( A,B>=2tB 



65* 



It 



p=o 



roan 



I JEW 



dette 



5*» 



bY - 



0\ 



6nW 



du™° 



aft* 



at; 



wae\ 



det 



me" 



no 



V.ao 



det*» 
gen* 
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faff 



&3g 



AO 



©o 

p** 

fop oQ 
po*% 

fO* ° oo 
po^ 0 o 



30 
AO 

Y oo 

V £0 

2 oO 

300 

3 Y0 



-B6 



AO 



3^ 
320 

^ 

33 o FOP 
3*> \g& 



GO 



«P0^ 3 
OO' 

3*° OO' 
30° 

330 0 3°° 
AOO 



-66 



-TO 



00 
00 



\6° 



pp 

-AO 



A7 



Program: Dobbett op 
Maskine: Amstrad 
Gevlnst: 100 Kr. 

Hvis du lige star og mangier det 
sidste pift til programmet. der ba- 
re ka' det der. sa var det maske en 
ide med dobbelte bogstaverT? 
Hvis du synes. at det lyder umu- 
ligt. sa tast programmet ind, og 
sel 

Indsendt af: 
Thomas Pavstrup 
0sterbrogade 143 
21OOKflbenhavn0 



1 • Dobb»lt» bogstaver med CALL 42055 1 i nenr . 

10 FOR E-42035 TO 42106:READ C«:POKE E, VAL ( + CS) : NEXT 

20 DATA DD,6E,00,DD,23,DD, 23, 2D, 26, 00, 29, 29, 29, 29, E5, Dl , 29, 29, 19, C9 

30 DATA CD,33,A4,11,00,F8 P 19,EB,21,50, 00, 19, EB, OE , 02 , E5 , 06 , 04 , C5 , OE 

40 DATA 02,06, 50, E5,D5,7E, 12,23, 13, 10, FA, Dl , 7A, D6, 08, 57, El , OD, 20, ED 

50 DATA 7C, D6.08, 67, CI, 10,E3,D1,0D, 20, DC, C9 
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1 PRINT CHR$(147): REM * 
SCROLL 

2 TEXTS (0) -"MADE BY GREEN SOFT 
1987 IN DENMARK " 

3 TEXTS (1) -"COMPUTER IS 
BEST " 

50 FOR I- 0 TO 1 

55 AT-LEN (TEXTS ( I ) ) : FORQ-1 TO 

AT 

65 XP-2: YP-1 : GOSUB100: 
PRINT MIDS (TEXTS ( I ) .AT-Q+l.Q) 
70 NEXT Q 

75 FOR Q-l TO AT/ 2-1 

80 XP-2: YP-1: GOSUB100: PRINT 

CHRS(20) 

85 FOR W-0 TO 2000: NEXT W 
90 XP=0: YP-1: GOSUB100: 
PRINT" (40 SPACES)": NEXT I: 
END 

100 IF YPOO THEN POKE 214. YP- 
1: PRINT: POKE 211, X; RETURN 
190 REM **** VEJLEDNING **** 
200 REM * NAR DU SKAL LIGGE 
FLERE LINIER I DIN SCROLLTEKST 
SKAL DU 

210 REM * HUSKE AT £NDRE LINIE 
50. SALEDES AT 1 TALLET RETTES 
TIL DET 

220 REM * TAL DU ER NAET TIL. 
OG HUSK OGSA AT AL SCROLLTEKST 
SKAL STA 

230 REM * SOM 

TEXTS (NR) -"TEKST" I 
BEGYNDELSEN AF PROGRAMMET 




PR 



GO 



T 03 0 



Program; Here scrolls 
Masklne: C-64 
Gfivlnst: 100 Kr. 

Med dette smart* program, kan 
du fa flere scroll I inter pa skar- 
men ad gangen. Det er velegnet 
HI f.eks Introduktloner til splL 
Indsendt af: 
Jesper Andersen 
Loulsegade 7 
9000 AJborg 



1 

a 

3 
4 

6 

7 

8 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

ao 

21 



FOR A=842 TO 851 
I POKE A, 13 
NEXT ft 

INPUT"<CLR) STftRTL INIE ( STORRE END 25 > 
INPUT-SPRING MELLEM LINIERNE : "JS:PRINT 
X-LENC STR« LN) )*6 t Y« 1 : P0KE2584,0 

COLORS, 8 IPRINT LNJ "OftTA ";: IF A*<>CHR»<13) AND A»<>", - 
GETKEY A»: IF A« = CHR*< 17) OR A*=CHR*< 145> OR A*=CHR« 147 



";L.N! IF LN<25 THEN 4 



THEN PRINTft*; (X-X+l 
> OR fl««CHR« 19) THEN 



X»X*1 

IF A»<>CHR«13) ftND Y<3 THEN BEGIN 
I IF X*40 THEN Y = Y*1J X«l 
l PRINTA*; : G0TO8 
BEND 

IF A*»CHR*<13) OR Y"3 THEN BEGIN 
i IF Y=l THEN A=2: ELSE A=3 

I COLOR 5,12! PRINT: PR INT"P0KE208 ,0 I G0T07 ■ 1 
' FORI-1 TOft+l! PRINT CHR«< 145) I . : NEXT I 

POKE 208, A 
: LN*LN+Si X-LEN< STR* LN) ) *5 : Y=l 
: END 
BEND 



Program: Auto data 
Masklne: C128 
Gevlnst: 100 kr. 

Dette korte program er faktisk en 
datallnlegenerator (puha. et langt 
ord), og det er lavet for at hjaelpe 
dig med at indtaste lange dataiist- 
ninger fra TAST. Programmet ser- 
ger for alt for dig. Du skal blot 
fa?stne fiJjnene I blade* eller llstnin- 
gen. sa skal programmet nok ser- 
ge for. at der bliver lavet datalinier. 
I det rigtlge format! 
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10 P^^ine 



der 



St* 



\0 



oS V)B 



VO 
20 
30 
AO 
50 
60 0 
70 ^ 

50000 

500^0 
30020 
50030 



gol- 



UBS 



det W 
var 



50000 



It* 



17>» 



300*0 
30050 



TO 
TO 
1 TO 



rjooeo 

30070 
50O9O 

3009° 



FOB A"\ 
FOB * £ 



HE 

.HE' 



F*» J 



ft 



Br* 



2 V4 



\F*« 

GOT 0 



Vo030 



BE 



T\JR* 




at 



low, 8 -**" nte*"* 
POKE 



tW 



POKE 



2*1 



C4U 



op 



'nasenotaf. 



20 



10 pc=HIMEM-70: MEMORY pc-1 

20 READ a»:a»=UPPER*<a«> : IF a*= " END " THEN 40 

30 FOR a=l TO LEN<a«> STEP 2:P0KE pc, VAL ( "tt'+NID* (a* # a, 2> ) : pc=pc+l : NEXT: GOTO 
40 le+t=HIMEM+l:rlght=l*-ft+33: lb=lef t+1: lh-le+t+10: rb*r ight+1 : rh=r ight+14 
50 DATA 2100001 10000CD1DBC06C8C5545DE523014F00EDB0EB3600E1CD29BCC110ECC900000021 
00001100 

60 DATA 00CD1DBC1 14F001906C8C5545DE52B014F00EDB8EB3600EICD29BCC1 10ECC9 
70 DATA end 
100 'demo 
110 r*=-dette 
120 l»="dette 
125 h=l:v=i 
130 MODE 1 

140 POKE lb,16:P0KE lh,8:P0KE rb,24:P0KE rh,8 

150 PRINT" DETTE ER EN DEMONSTRATION AF PROGR AMMET S 

160 LOCATE 40,23:PRINT MID»( 1*, v, 1 ) : v=v + l : IF v>LENU*> THEN v-1 
170 LOCATE 1,22:PRINT MID* <r«, h, 1 > : h=h+l: IF h>LEN<r*> THEN h-i 
180 FOR a=l TO 2:CALL left:CALL r i ght : NEXT: FOR a=l TO 25:NEXT:G0T0 160 



her 
her 



rul ler 
rul ler 



til 
til 



h*jre-erj»h lit 

venstre-ertsnev 



re 1 lur reh 

lit rellur 



ettt 
reh 



>d" 

etted 
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Sen 



d os 



en 



Mangier du bmmepenge? Eller har du bore k 
en braendende lysttilatfa lidf cool cash? | 
Anyway, whatever the reason: 
Nu har DU chancen for at fa skyllet lidt extra 
ind pa den slafne bankbog! DU kan tjene kro- 
ner med dit nye nummer af TASTH 



LaPP er siedet. hvor DU kan lade dine sma vidundere se dagens lys! 
Send os dine KORTE programmer (heist under 40 linier). sa kvitterer vi 
med en kold og crispy 500-krone seddel. Men dit program skal v*re 
GOOTi Det skal vzere sa godt at andre gider taste det ind og la?gge det 
ind som en ruttne i f.eks. sterre programmer!! 
Er dit program ikke noget eksperteme bliver forbl0ffede over. nsJjes vi 
nemlig med at forare dig en 1 00-krone seddel. Og er mini-programmet 
direkte ddrligt, ryger det direkte til papirkurvenes favoritjagtmarker. 
Programme!, du sender til os. m3 som sagt vaete pA hejest omkring 40 
linier. Programtyper er underordnet. sS det kan vasre alt lige fra et kort 
spil. noget sertost en maskin-kode rutine eller maske en smart program- 
menngs-lde. Bare send ind. vi venter I spaending. 
Vivil IKKE have hverken band eller disk, for ingen af programmeme bliver 
returnerede, Vi har heller ikke mulighed for at fortaelle dig. om dit pro- 
gram kommer i TAST eller ej. Det opdager du forst. n3r du ser det i biadet 
og star med din 500-LaPP. 

Ideen har vi nappet direkte fra vores sosterblad "COMputer" (dem med 
Super 20 afdelingen i hvert nummer). Men vi er ikke sa strikse: Vi god- 
tager nemlig rutiner og short -cuts til ALLE datamater, lige fra Amstrad 
til ZX Spectrum. 

Ja. uanset hvilken dataputter. du har staende i skabet. kan vi bruge srrd 

korte ting til den. Altsd: Fat pnnteren eller din skrivemaskine og send os 

din korte listningl Samtlige datamaerker godkendes. 

Og pengene. du tjener. erskattefrie. Du skal ikke opgive dem til det ka?re 

vareen - det har vi nemlig allerede ordnet for digl 

Rasmus Klrkegard Kristlansen 

PS: Det er naturligvis uncdvendigt for os at nasvne. at du selv skal va?re 
ophavsmand til mesterva?rket - ELLERS FAR DU NEMLIG INGEN 
KRONER! Og derudover: Hvis du (upper, bliver du samtidig totalt van- 
a?ret og til grin og vil aldng kunne leveet anstaendigt liv. Endvidere vil du 
blive sigtet efter straffelovens ramme under paragraf 8. der kan give 
fa?ngse! i op til 79 ar samt den elektnske stoL. Sa husk nu. at det skal 
va?re dit eget prog. 

Send dit lille (max. 40 liniers) vidunder til: 
TAST 

Aft.: La Petite Programme 
St. Kongensgade 72 
1264 Kbh. It 



Husk at vedleegge dit navn og adresse. 



^Nyd det nemme 

liv... 

4 




1 v l 

Ralph Lauren. Austin * Healey 
'63. Et spil polo. Og det nye SOFT. 

SOFT horer med til en veUykket 
weekend - hvis du vil nyde det 
nemme liv med stil. For SOFT er i 
en klasse for sig selv, praecis ligesom 
du. - Pa toppen. 

I dag er det blevet endnu nemmere 
at nyde det nemme liv. Tegner du 
abonnement, far du nemlig SOFT 
leveret direkte til doren. Portofrit. 
Nemt og 2-3 dage for, de andre 
kan fa biadet i kiosken. 
Ikke bare sparer du penge ved at 
abonnere. Du far ogsa biadet for det 
udkommer og slipper for besvaeret 
med udsolgte blade i kiosken. 
Nyd livet noget mere. Fa et SOFT- 
abonnement i eget navn. 



Ja tak. send mig SOFT i el hell ar (bare 164 kr. ). 

Abonnement onskes starlet fra og med nr. 

Ikan og$a slartes med tidligere numre) 

164 kr. vedlagl i check 

eller indbetalt pa postgiro 940 60 77 



Navn 



By 



Adresse 

Post-m. 

Send til: SOFT St. Kongensgade 72, 1264 Kbh. K. 
Enjoy the easy way of living. Subscribe. 




Program: Tastaturbeep 
Masklne: C64 
Gevinst: 100 Kr. 

Ja \n v«J det godt, det er set far. 
men alllgevel kunne vl Ikke s:S for 
programmet. Det er nemlig det 
sjoveste Deep, vi lasnge har hflrt 
For nu kort at fortaslle de. der ikke 
har set programmet for, kan vl si- 
ge. at det. hver gang du trykker en 
tast. giver et halvkvalt beep fra sig. 
Det sker ogsS. nar du indtaster et 
andet program fra UP.P. 
Indsendt af: 
Jesper U I less 
Mplleparken 29 
7100Vejle 



3 
3 



a 

3 

*o 

'1 

>e 

'3 

ia 
so 
35 



4 

a 

> 



**** 
*»» 

**» 

*»* 

*** 



»* 



• * 



ST, 



Eft 



**** 

e 



'3 



To 



** 



•*•*"... 

*** 
**» 
*** 
*** 
*•» 
*** 



~'3 

** 



•45 



'0 



'©3 
'99 



-5. 



as 



3? 



o 0 



J5 



'1 



"='3 



'33 

3e 



3S 



"^33, 



5 

*3 S 



RA3TEPF ARVER C64 



10 FOR T= 12345 TO 1267c 
20 : POKE T,255-C: C»C*E 
30 NEXT T 

40 FOR T= 12258 TO 12490 
50 : POKE T,B : B=B+ 1 

SO ME XT T 

70 FOP T-12288 TO 12357 
80 : READ A : POKE T,A 
90 NEXT T 

100 POKE 12544 , I 

1 10 SYS 12288 

120 : 

130 DATA 120, 169,0, 141 , 14,220, 169, 1 ,14 1 ,26,203, 169,27, 14 J . 17 ,308 , 169 ,28 , 14 1 
140 DATA 20,3, 169,48, 14 1 ,21 ,3,83,96, 173,25,208, 14 1 ,25,208,4 1 , 1 ,240 ,28 , 198 ,255 
150 DATA 16,4 , 169 , 137 , 133,355 , 164,255, 165 ,69 ,48 , 1 4 1 ,32 ,208, 185 ,0 ,49, 14 1 , 18,208 
160 DATA 136, 208, 3,76, 49, 234, 76, 129,234,0 



14 - TAST 



320,200 
,200+3*x*SIN(x) ,1 



10 DIM xX<250) .yX<250> 
20 m%=l:M0DE mX: i%=3: MOVE 
30 FOR x=l TO 66 STEP 0. i 
40 DRAW 320+3#x#C0S<x) 

50 NEXT x 
60 DRAWR 20,-40 

70 PLOT -10.-10,3:MOVE 313,200 

80 GOSUB 1010 

90 PRINT U2-tl)/300 

100 END 

1000 'HUSK! m=mode-vaerdien, 

1010 z%=-4: s%=0: d%=2" <2-mX) : xX<0) =XPOS: yX<0> =YPOS 
1020 IF sX<0 THEN RETURN 
1030 xX=xX(sX> :yX=yX(sX) 
1040 IF TESTR<dX.O> THEN 
1050 xX=xX+dX:GOTO 1040 
1060 IF TEST(xX.yX) THEN 
1070 PLOT xX.yX 
1090 IF TESTR<0,2> THEN 1 
1100 IF tX THEN 1140 
1110 sX=sX+l:xX(sX)=XPOS: 
1115 tX=l 

1140 IF TESTR(0_z%) THEN 
1130 IF eX THEN 1170 

1160 sx=sx+i: xX(sX> =xpos: 

1165 eX=l 

1170 xX=x%-dX:G0T0 1060 
1180 tX=0:eX=0:G0T0 1020 
1190 tX=0:GOTO 1140 

1200 eX=0:G0T0 1170 / Nfeduiv 



sX=sX-l:M0VE xX,yX 
1060 

1180 



Program- FW« 
MasWne: Arnstra^ 

pen nsr- 
Indsendt ar. 
Carsten Olsen 



190 

yX(sX)-YPOS 
1200 

yX(sX)=YP0S 



V4 ff«gi tip 



Program: Rasterfarver 
Masklne: C64 
Gevinst: 100 Kr. 

Nej. det er ikke set far. selvom det 
lyder sadan! Programmet her la- 
ver en meget sjov ska?rm. hvor 
borderen er farvet i 127 forskelli- 
ge farver og det nederste af sk air- 
men er sort, mens det normale 
skasrmblllede natruligvls er - nor- 
malt! 

Hvis du vil lave noget lidt ander- 
ledes, skal du blot skrive: 
POKE 53265.11 efter du har 
RUN'et programmet. hvad der 
sker. tja._ 

Indsendt af: 

Jan Fuglesang Petersen 
Kastanlevej 3 
6950 Ringkobing 



(CLft) 

(HOME) 

' C «SR NED) 
(CRSTOPl 

^RSRHCURE) 

******* 

ONST) 
(RETURN) 
(SPACE) 
(FtCS ON) 
( RVS OFF) 
(SORT) 
(HVID) 
(R0O) 
(CYAN) 

(GR0N) 
(BUA) 



B *lyder det 



(CUL) 

(ORANGE) 
(BRUN) 

(LR0D) 
(GRAAI) 
'GHAA2J 
O-CR0N) 

U-BIM) 

1CRAA3) 
(H) 

fF2J 
(FA) 

if*) 

(F6) 



Screen clear 
Ho "ie cursor 
c "rsor ned 
Cur *orop 

5 urs W"0jre 
woage 

'nsen 
Return 
Space 

Averse on 
Reverse off 
Sort 
»wj 
Red 
Cyan 
Ulia 

Cron 
By 

Gu) 
Orange 
Brun 
Lyserod 
CrA i 

L >segr«i 
CrA 3 

r«*Wonst*t 5 fs 
^ktjonsrastg ~ 

f^nonstast ? £ 

^towaaa Fa 



Dutrxdw 

aft 'HOME 
«SR 0P/ NED 

SpS 

SHIFT INST/DEL 

CTRL 9 
CTRL 0 
CTRL 1 

CTRL Z 
CTRL 3 
CTRL 4 

CTRL 5 
CTRL 6 
CTRL 7 
CTRL fl 

COMMODORE J 
COMMODORE 2 

COMMODORE 3 
COMMODORE 4 
COMMODORE? 

COMMODORE fi 
COMMODORE 7 
COMMODORE 



-NSTRE 



TAST - 15 



Lambda 



Dick Turpin 



in action 



Som Dick Turpin skal du overfalde 
en diligence. Desva?rre vlser ku- 
sken sig lidt for "besvasrlig". og du 
ma" derfor ty til at skyde ham. Men 



100 
110 

:20 

130 
140 

ise 

1 60 
1 70 
ISO 
190 
200 
210 
220 
230 
40 
250 
260 
270 
230 
290 
300 
310 



0 
330 
340 
350 
360 
370 
6.00 

4:0 

620 
A 30 
&t0 
650 
460 
670 
430 
490 
560 
510 
520 
530 



MUS X c 

music 

PAUSE 

MUSIC 
MUSIC 
MUSIC 
PAUSE 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
PAUSE 
MUS I C 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUS I C 
MUSIC 
WUSIC 
MUS I C 
MUSIC 

mus ; c 

MUS I C 
IF A=2 
GOTO 90 
MUSIC " 
MUSIC 
PAUSE 
MUSIC 



n E4 „ 
»C2" 

"02" 
"El 3" 
"C2" 
2 

"D2" 
,, E4" 
»A4" 
"34" 
"C>2" 

4 

"A4" 

"D4" 
"C4" 
"D4" 
"E4" 
"F4" 
"G13 ,( 
"G4" 
"F4" 
" E4 " 
"D4" 
THEN 



"F6" 
°Fi u 
4 



*3 " 



MU5 1 C 



!S 
MUSIC 
MUSIC 
MUSIC 
MUS I C 
MUSIC 
PAUSE 
MUS I C 
MUS I C 
MUS I C 



"E 
"F13" 
"A4" 
"G4" 

M FA -. 

"C2" 
1 

"02" 

* - A - 

"F4" 



du skal va>re hurtig. for nan hartll- 
kaldt hjaelp. og den er pa" vej. Pro- 
grammet er skrevet til Lambda. 
Marathon eller Power 3000, men 
kan bruges til ZX-81 . hvis du und- 
lader musiksatfningeme og tilpas- 
ser grafikken, 

Jakob Petersen 




G3 



SAO 
550 
560 
570 
S80 
590 
600 
610 
620 
630 
640 
650 



MUSIC 
MUS I C 
MUSIC 
MUS I C 
PAUSE 
MUSIC 
MUS I C 
MUS I C 
PAUSE 
MUSIC 
MUS I C 
MUSIC 



"f4" 
"G4" 
"CC" 
"32" 
2 

"f2" 
11 04" 
"G2" 

ii 

"64" 
"B4" 



660 
670 
680 
690 
700 

7:e 

720 
730 
740 
750 
760 
770 



MUSIC 
MUSIC 
MUSIC 
MUSIC 
MUS I C 
MUSIC 
MUSIC 
MUSIC 
PAUSE 

rusic 

MUS . c 
MUSIC 



"A4 11 
"G4" 
"f3" 
" £8 " 
" DS" 
"C3" 

"G2" 

"-f2" 
"G13" 
"B4 " 



7 SO 
790 
SOO 
310 
315 
S20 
330 
SAO 
350 
360 
370 
380 



MUSIC "A4" 
MUSIC "G4" 
MUSIC "f4" 
MUSIC "D2" 
PAUSE 
V USIC 
MUS I C 



MUSIC 
MUSIC 
MUSIC 
PAUSE 
MUSIC 



"f 13" 
"E4" 
"f4" 
" G2 " 

ie 

"G4" 



16 - TAST 





KIlRTP "G2" 






5O20 NEXT S 


JUv 


1 HUOC *Q 






5025 PRINT RT X, 211" " 


C1 1 A 








5G3G IF X=M THEN GOTO 5500 




1 :UD 1 L» 






5O40 GOTO 2035 




mi re r p »* R9 11 

/ ILftZ) X Li U*. 






5500 CLS 




r J H*Jwic £. 






R«5QS PRINT 11 bravo DU FI :< SKUDT HO 




MIlR T r M 






DSTRNDEREN . OG KRN NU FLYGTE MED 




MiicTr h r:/. *• 






";INT ( RND* 100000^ ; " DOL-LRRS -V 


JfV 


yncTr II tiA H 






IL_ DU PROVE IGEN . . " 


OCA 


E iJD X Li MU 






5510 PRINT "MED JOYSTICK (J/N)" 


OQA 


1 \\JZ> 1 L- U*U 






5520 INPUT V* 




1 w * w * & 






5525 IF V*="J" THEN CLS 


1 1 v 








5530 IF V*="J" THEN GOTO 2000 


1 020 








C i i: ^35 I F Vt= M N" THFM CLS 


A 030 


MUSIC "C8" 






5540 IF V*="N" THEN GOTO 2000 


2000 


POKE 16418,0 






5550 GOTO 5520 


20O1 


PRINT RT 21 . o; " "■■ ■ 






6OQ0 CLS 






FlV 


TA 

mi H 


6005 PRINT "sorry HJRELPEN KOM OG 


f ■ 






DU BLEV HRENGT PAR STEDET 


2002 


POKE 164 IS. 2 






MED JOYSTICK < J/N) " 


2003 X 


= 10 






6010 INPUT Vt 


2O047 


=0 






6015 IF INKEY»="J" THEN Ci_S 

i i — r i ■ i — h — — — — t 


2O09 


PRINT RT 17.22;" 


■ H 


""'*' 


6020 IF V*="J" THEN GOTQ 2000 

— V v ■ i i ■ 


2010 


PRINT RT lS.22;"cMa 


set 




6025 IF INKEY*="N M THEM CLS 


2020 


PRINT RT 19. 22! " A/ 


MM 


Jl" 


6030 IF V$="N" THEN GOTO 2000 


2G3G 


PRINT RT 20, 22; " 0 


A ABA8" 


6040 GOTO 6010 


2035 


PRINT RT K, 21 » " " 






7O0G PRINT ">>>>)>>>>fciCK— turp.n 


2O40M=I NT (RND*20> 






■ < <<<<<(<<<" 


3000 


PRINT RT Mi 21 ; "m" 






7O10 PRINT RT 3,0'."DETTE SPIL GRRR 


30 10 


IF V*="J" THEN GOTO 


4000 




L'D PRR RT DU ER DICK TURPIN )d< 


302© 


IF INKEYS="L" THENX 


= X-1 




- DIN OPGRVE ER AT SKYDE DEi_IGE 


3O30 


IF INKEY*=". " THE MX 


= X + 1 




NCEFOREREN , INDENHJRELPEN KDMMER 


3O40 


IF INKEY*="R" THEN 


GOTO ! 


5000 


t SflR DU KRN FLYGTE MED RLLE 


3041 


IF X=0 THENX* 1 






PENGENE - VI L DU HRVE JOY 


3042 


IF X=20 THENX=13 






STICK (J/N) " 


3O50 


PRINT RT X.0;"e" 






7015 PRINT RT 9, 0; "ELLERS STYRER D 

mm ^p^pr ■^■■p/ ■ -v lpw mm- -v pr v h ^pr w — ^^p^r ■ ^mm — r — ■ ■ - - p^pv - 


30 51 


PRINT RT X-1,0?" " 






U MED R=SKYD . . =NED , L=0P. " 

mmmr mmm* mmrnf v » KpT ■ B < ~* *mmm mm ' **my mm** ■ V 


3052 


PRINT RT X+1.0; " ■ 






7O20 INPUT Vt 

*- -mm* V " ~ ' mmm , W ^ 


3O60T=T+l 






7030 IF V$="J" THEN GCTQ 7100 

mf T w , ▼ ^m tff if, mm* * ~ ^mr^mmf \*w ■ mt T 


3G7G 


PRINT RT O, ISlT 






7O40 IF V*="N" THEN GOTO 7100 


30 SO 


IF T=I00 THEN GOTO 


6000 




7O50 GOTO 7020 

, * mm *mf mmmf kf ~mmW ■ ~m~ 


309G 


GOTO 2035 






7100 PRINT RT 12. 0? "VIL DU HORE ME 


4OG0 


IF INKEY*= ,, 4" THENX 


= X-1 




LODIEN FORST (J/N) M 


4oio 


IF INKEY*=" R" THENX 


= X+1 




7105 IF INKEY«="J" THEN CLS 

■ ■ — ■ r mmmmr w — m w ^^^^v v — mm - 


4O20 


IF 1NKEY*="U" THEN 


goto : 


5000 


7110 IF INKEY*="J" THEM GOTO 5 


4021 


IF X=0 THENX=1 






7115 IF IN'KEY$="N" THEM CLS 

mw ^^pp ^mmmr -p^pr -^^v "p p^r qr v pi^^^ p v ■ mm i — ^^^r ^^^p^ 


4022 


IF X=20 THENX* 19 






7120 IF INKEY*="N" THEN GOTO ^000 

1 +*■ mmmm V A 1 A 1 V * ■ m m r IV ( T , ■ — 1 ~ W L_ 1 ^_ . T T 


4O30 


PRINT RT X,0; M d" 






7130 GOTO 7105 


4031 


OR I NT RT X+1.0; " " 






3000 CLS 


4032 


PRINT RT X-1.0!" " 






9010 SAVE "DICK" 


4O40T=T+l 






9015 SOUND 13. 1500 

mm — pi imm mmr r mm mm ^m w mm mmm mmr mmr 


405G 


PRINT RT 0, 15;T 






9O20 PRINT RT 10. 5; "DICK TURPIN ER 

m-r mm mmm , , * mm , w »pi -m ~m r mm r mm mmv mmr m mm ^ m m mj mmmm* , - 


4060 


IF T=100 THEN GOTO 


6000 




L0RDET" 


4O70 


GOTO 2035 






9O30 PRINT RT 21 , 1 0 ; "t r y kler.tt ast " 


5005 


SOUND 5.5000 






3O40 IF INKEY$=" " THEN GOTO 9040 


50 OS 


FOR S=l T020 






9045 CLS 

mmr m mmm mmmm ■ mm 


SO 10 


PRI NT RT X,S5" . " 






9O50 G0TC 7000 



TAST - 17 



Commodore 64 




Og denne gang I en super-flat ud- 
forelse..,! 

Et "must" for dig. som taster ind. 

Peter Marino 




tff 



.A 




x\ z 



1 U=S3248: 5=54272: PQKE S+24.15 

:PCKE S+4, 32: POKE S-5,0 
:PCKE 5*6.250: POKE 5.10 

2 POKE 5*1,10: IF PEEKr704:-l THEN 15 

IS FDR T-4S152 TO 49355: READ A 

: POKE T. A: NEXT: FOP T-B9B TO 958 
: PEAD A: POKE T, A: NEXT 

11 PCKE 734, 1 

15 51-3:S2-0:GCSLIS 2030 

20 PCKE U+41 a i:P0KE U+4, 127 

; PCKE U+5. 127: PR! NT "CHUID, CLR3 " 
:PCKE 2043,13:PGKE 2041.13 



22 PCKE 2042, 14 
31 PRINT* CHUID3 



:FCP Y-l TO 22 
32 IF Y=ll THEN PRINT** CRUS DND|CRUS 
GFF > ■ 



J : : NEXT Y 



33 IF Y-12 THEN PRINT*'CRU5 DNJ| CSUS 
OFF? 



5 



| " ; : NEXT Y 

34 PRiNT"CRUS QNi>|CCR5R H0JRE1B, 
RUS OFF,5PfiCE;3SCRUS ON, 



18 ■ TAST 



crsr h0jre1e , rus offm " ; : next y 
35 print" "crus 

'• home " 

:poke 2023, 126: poke 56319,1 

HE SYS 49152:P0KE U*32.0:POKE U*16,l 
: POKE U,B3:T5— 7 

50 PR I NT "C HOME, RUS DM.SDRT, 

SPACES :<SP I LL.ER ET SPILLE 
R TO " : POKE U*21.7:D1-127 

51 B-1:T1-T2:D2-D1 

70 POKE U*41,5:P0KE U*4,D1 

: POKE U*5.D2:P0KE U*41 , 1 : D1-D1*T1 
: A-A-l 

101 d2-d2*t2:if d1<0 gr 01>255 them 
di-aes«:di-<:24b:>:» : b-aes':b-b:> 

:POKE U*15,E 
110 IF PEEK';U*30^>0 AND ft<l THEN Tl- 

-T1:A-I0:GOSUE 4000 
150 IF D2>226 OR D2<53 THEN T2--T2 
130 IFCD1>B0 AND B-55ORCXJK10 AND B- 

1 D THEN 1000 
500 GOTO 70 
1000 IF 3-5 THEN 1020 
1010 S2-S2*1:T1 — 7:GDT0 1040 
1020 51-S1+1 ;Tl-7: PRINT" CHOflE, 

CRSR H0JRE14 , PUS ON} "51 
1040 PRINT " CHOME , CRSR H0JRE34, 

RU5 ON:' "52: IF 5-5 THEN POKE 0*16,1 

: E-l 

1050 D1-1B0:POKE U*4,D1:P0K£ U*S,D1 
20E5 IF S2-HI OR 51-HI THEN PRINT"CH 
OHE.CRSR NED13.CRSR H0JRE15 ^GAflE 
CUER"; : GOTO 15 
1090 POKE 19B.0 

1355 GET AS: IF AS<> " "THEN 1095 
1100 GOTO 70 

20C0 FDR X-l TO 3000: NEXT X 

2500 PR 1 NT " C L • BLAA , CLR , RUS ON, 
5PACE15:'PING PONG 

: PDKE U+21,0 

2501 PRINT " LAUET AF JOHN HIKKELSEN 
& PETER flARINC " : PDKE 19B.0 

2510 PRINT"CCRSR NED3, 

CPSR H0JRE2>SPILLER 1 BRUGER JOYS 

TICK PORT I": POKE U*32.3 

:POKE U*33.0 
2523 PR I NT"-: CRSR H0JRE2.'SPILLER 2 BP 

'JEEP JOYSTICK PORT II" 
2530 PRINT M, :CRSR H0JRE2. 

CRSR NEDjEFTER ENDT SERUE FCRTSAE 

TTES SPILLET" 
2540 PR I NT "C CRSR H0JRE2)UED TPYK PAA 
C RUS QN, GUL-' SPACE Ct . BLAA. 

RUS OFF)" 
2550 PRINT" CCRSR NED2, 

CRSR H0JPE2VHUILKEN BEGRAENSNING 

SKAL DER UAERE" 
2560 PR I NT "CCRSR HCJPE2 jPAA POINT C 



1-DER UD A ' } 
2570 INPUT'THOnE.CRSR NED14 , 

CRSR H0JRE2B;'";HI 
25B0 IF HI < 1 THEN 2570 
2590 PRINT "CCRSR NEDS , 

CRSR H0JRE2KTRYK CGUL, 

RUS ON SPACE C RUS OFF, L. BLAA, 

SPACE:' FDR AT STARTE" 
2595 GET AS: IF AS<> " "THEN 2595 
259E RETURN 

4000 POKE 5*4, 33: POKE S*4 , 32 : RETURN 
49152 DATA 076,066,192,000.060,000, 

000 , 060 , 000 , 000 , 060 , 000 , 000 , 060 , 

000, 000,060 
49169 DATA 000,000,060,000,000,060, 

000 . 000 . 0B0 , 000 , 000 , 060 , 000 , 000 , 

060, 000 , 000 
491B6 DATA 060,000,000,060,000,000, 

060 . 000 , 003 . 060 . 000 , 000 , 060 , 000 , 

000, 0E0, 000 
49203 DATA 000.060,000,000,060,000, 

000 , 0E0 , 000 , 000 , 060 , 000 , 000 , 060 , 

000, 152, 000 
49220 DATA 199,003,192,157,064,003, 

232,224,063,206,245, 169.001 ,141, 

040.20B.1G9 
49237 DATA 255,141,021,208,141,000, 

208. 169,026, 141 ,002, 20B. 169, 100, 

141,001,208 
49254 DATA 141,003,208,169,005,141, 

032, 20B, 141,033,206, 120, 169, 126, 

141 ,020,003 
492 _, 1 DATA 169 . 192 , 141 , 021 , 003 , 0BB , 

095 , 174 , 000 , 220 , 224 , 126 , 20B .013, 

172.001.20B 
492BB DATA 192 , 050 , 20B . 003 , 076 , 146 , 

192 , 206 , 001 . 20B , 224 , 1 25 , 20B ,013, 

172,001 ,208 
49305 DATA 192,229,209,003,075,163, 

192 , 23B , 001 , 20B , 174 , 001 , 220 , 224 , 

254, 20B, 013 
49322 DATA 172,003,208,192,050,209, 

003 , 076 , 183 , 192 , 206 , 003 , 208 , 224 , 

253,209,013 
49339 DATA 172 , 003 , 208 , 192 , 229 , 20B , 

003 , 076 , 200 , 192 , 238 , 003 , 208 , 076 , 

049,234,096 
49400 DATA 000,000,000,000,000,000, 

000 , 000 . 000 , 000 , 000 , 000 . 000 . 000 , 

000 . 000. 000 
49410 DATA 000,000.000,000,000,000, 

000 , 000 . 000 . 000 , 0E0 , 000 , 000 , 126 , 

030,000, 126 
49420 DATA 000,030.125,000,000,050. 

000 , 000 , 000 , 000 , 000 , 000 , 000 , 000 , 

000, 000, 000 
49430 DATA 000.000,000,030,000,000, 

003 , 300 , 000 , 000 , 000 . 000 
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Commodore 64 




Road Puzzle er el noget atypisk 
racerspil til en C64. hvor farten er 
gledet ( baggrunden til fordel for 
hurtigt logisk raesonnement. Spil- 
let er opbygget ligesom "15 spil- 
let*. hvor det ga?lder om at sa?tte 
1 5 talbrikker i rigtig ra?kkeffljlge. 
Road Puzzle ertalbrikkerne blevet 
erstattet af sma vejbaner. som din 
lille prik af et koreteij skal k0re pA. 
Hver gang din bil forlader en brik, 
skal du s»rge for. at der er mulig- 
hed for at kare videre pA nasste 
brik. Da alle overksrte brikker Oli- 
ver blanke. er det til sidst noget af 
et kunststykke at fremskaffe vej- 
bane til din asfaltsluger. Hvis det 
pA noget tidspunkt gar en kende 
for langsomt i spillet. slutter du af- 
terbumeren til ved at holde flre- 
tasten. Hvis du kflrer ud i en af 
skaermsideme. er der mulighed for 
at fortsastte. hvis vejen fortsa?tter 
pa den modsatte side. Pa redak- 
tionens vegne lover vi. at Road- 
Puzzle Ikke vil skuffe selv mtinere- 
de TASTere. 

Jesper H0y 



13 0^-53245: POKE UU'*33 
20 POKE 53290. IStPOKE 

: PP I NT " •: CLP , ELAA D 0 J 
30 FOP A=0 TO 65 : POKE 
40 FDR A-0 TO 15 STEP 

:PCK£ 5i95g+A.B:NEX 
50 Din BRSC 10.*' , FE07 . 12 
60 FOR A-l TO 10: READ 

: EESCAr'-VPUS □N?"* 

CRSR L»EN5TRE3?"*XES 

CRSR UENETRE3V-X3S 
RUS DFF ? " : NEXT A 
70 ERSC0: , - ,, *:5PAA2.Rv'S 
D.CRSR UEN£TRE3?!1t3a 
CR5P UENETRE3?n33 i : r : 
RUS OFF . 0RAA1 5 " 



,C:POKE vV-21.0 
5329:, 15 
EEL I K | " 

51S69*A,0:NEXT 
3 : READ B 
T : POKE 53243 .'44 

X1S.X2S.X2S 
X1$*"CCP5P NED, 
-•'';CRSR NED. 
-"rCPSP 0P2, 

ONi'LNNCCPSP NE 
■XRSP NED , 
P5R 0P2, 



90 AD-4SI52: FOR A-0 TO 21:CS=0 

:FOP E-0 TO 7; READ C:POKE AD^E.G 

:CS-CS*C:NEXT E: READ D 
90 IF D-CS THEN AD-AD*9 : NEXT A 

:SYS 49290:GOTO 130 
100 PRINT"CCRSR NED > FEJL ! DATA-LIN! 

E"PEEK^E3.'-*-PEEKC54: , *255 : END 
110 POKE 532^2,52: POKE 565^5. 125 

: POKE 649. 204 : PP I NT CLP, 

GRAAlj "CHPS'E-- ; :HT-100 
12C PPI NT" < CLP . ELAA . SPACE >ROAD LEFT 

: 0 100 Hi 

: 100 v:graa: > 

130 PP I NT " HOriE . CP5P NED S°A r ~ tr 

pus on ."■ lnnnnnnnnnnnnnnnnnnnnnnnnn 
nnnmnnnnnnnn" 
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GAMES 



140 FDR A-l TO eisPRINT" CRWS OfDmR 

US OFF . SPACE3E , R'JS QN3H**:NEXT 
150 PRINT" '.PUS ONJMNNNNNNNNNNNNNNNN 

NNNNNNNNNNNNNNNNNNNNO" 
160 X-l:Y-l:GOSUB 1930: PRINT BRIC75; 

: FOR Y-2 TD 11: PRINT BRS<:3?; 

: NEXT Y 

170 Y-12: PRINT BRSCBO:FQR X-2 TO E 

rGOS'JB 1990: PRINT BRSC2?:NEXT X 

:GOSUB 1990: PRINT SRSCS) 
IB0 X-7:F0R Y-ll TO 2 STEP-1 

rGOSUB 1920: PRINT BRSC3? : NEXT Y 

:EOSLIB 1990: PRINT BRSC5) 
190 Y-l:FOR X-6 TO 2 9TEP-1 

:G09«JE 1990: PRINT BPS'! 2 >: NEXT X 
200 PRINT"CH0f1E,CR5R NEDB, 

CRSR HOJRES'.'R 0 A D PL'Z2L 

E" 

510 PRINT"CCRSR NED2.CRSR H0JRE10;":C 

5 1987 JESPER HOY" 
220 PRINT"<:CREE NED2 . CRSR H0JRE10VEN 

TEP SPEED f .l-3) <:RUS ON>@<RUS OF 

F.CPSR UEN5TRE> " ; 
230 GET XS:IF X$< M l"OR XS>"3'"THEN 230 
240 PRINT XS:EP-7-iJfiL';XS:'*2 
250 PPINT"'CPSR NE02 . CRSR H0JRE1C3SE 

TT IMG UP HIGHWAY — " 
2B0 PR 1 NT " t HOME , 9LAA . SPACE J ROAD LEFT 

: 0 100CGRAA1V 
e -7 0 pd-?:FOR X-l TO 7: FDR Y-l TO 12 

:fecx. y.'-20:next y.x 
2b0 b»int':rndc0>*7} + 1 

:BY-inT':rndc0>»12: , +i = fecbx, by;- -4 
290 hx-intcrndc0:'*7:»*1 

; hy-imT':rndc0:'-i2>*i 

:if hx-bx and hy-by then 290 

300 FETHX.HY?-0 

310 FDR 6-1 TO 18: FOR H-5 TO B 

320 X-INT':RNDC0?*7>*1: Y-INTCRND(.0:'*1 

2!> + l :U-FECX. Y? : 1-0 
330 IF U-20 THEN I-H 
340 IF H-5 AND U-8 THEN 1-9 
350 IF H-5 AND U-7 THEN 1-10 
350 IF H-7 AND U-5 THEN 1-10 
3^0 IF H-9 AND Y-5 THEN 1-9 
3B0 IF 1-0 THEN 320 
390 FE^X, Y?-I : RO-RO+1 

400 PR I NT " C HDflE , ELAA . SPACE! 1 ROAD LEFT 

: "R0"<:GRAA1 ) " 
410 NEXT H.G 

420 FOR X-l TD 7 : FDR Y-l TO 12 

:IF FECX.Y^<20 THEN 470 
430 U- 1 NTC RND$ 0 > *3 ) +2 1 FE C X , Y ? -U 
440 IF Y-4 THEN RD-RG+1 
450 RO-RO+: 

450 PRINT" CHORE . ELAA , SPACE? ROAD LEFT 

: •'RD'-CERAA!;'" 
470 NEXT Y.X:RE-RC 



4B0 FDR X-l TO 7:Y-1:GDSUE 1990 

: FDR Y-l TO 12: PRINT BRS< FEC X . Y> .1 ; 

: NEXT Y.X 
490 R=INTCRNDC0?*4?*1:FX-12: FY-12 

:GOSUB 2020 : POKE UU+21 , 1 
500 GOSUB 510:GOSUB 2020 

:FOR S-l TD SP.-GDSUE 1320: NEXT S 

: GOTO 500 
510 G-FE'-BX.BY) 

520 ON R GOTO 530 . B40 . 750 , BE0 

530 ON G GOTO 0.540,0,540,0,0,550, 

G00, S00.5B0 
540 FX-FX-1: IF FX>0 THEN RETURN 
550 GOTO 970 

5E0 IF FX<20 THEN FY-FY+1 
570 IF FX> 12 THEN FX-FX-1 
5B0 IF FY<25 THEN RETURN 
590 GOTO 970 

500 IF FX<20 THEN FY-FY-1 
510 IF FX>12 THEN FX-FX-1 
520 IF FY>0 THEN RETURN 
630 GOTO 970 

640 ON G GOTO 0,650,0,550.670,710,0. 

0.G70.710 
650 FX-FX+1: IF FX<25 THEN RETURN 
ES0 GOTO 970 
670 IF FX>4 THEN FY-FY+1 
590 IF FX<12 THEN FX-FX+1 
690 IF FY<25 THEN RETURN 
700 GOTO 970 
710 IF FX>4 THEN FY-FY-1 
^20 IF FX<12 THEN FX-FX+1 
730 IF FY>0 THEN RETURN 
740 GOTO 970 

750 ON G GOTO 0 , 0 , 760 . 760 . 780 . 0 , B20 , 

0.780, B20 
750 FY-FY-1: IF FY>0 THEN RETURN 
770 GOTO 970 

780 IF FY<20 THEN FX-FX-1 
790 IF FY>12 THEN FY-FY-1 
800 IF FX>0 THEN RETURN 
910 GOTO 970 

820 IF FY<20 THEN FX-FX+1 
930 IF FY>12 THEN FY-FY-1 
840 IF FX<25 THEN RETURN 
950 GOTO 970 

B60 ON G GOTO 0,0, Q' 7 ® , 6^0 , 0 , 890 . 0 , 

930,930.890 
B70 FY-FY+1 : I F FY<2S THEN RETURN 
9B0 GOTO 570 
890 IF FY>4 THEN FX-FX-1 
900 IF FY<12 THEN FY-FY+1 
910 IF FX>0 THEN RETURN 
920 GOTO 970 
930 IF FY>4 THEN FX-FX+1 
940 IF FY<12 THEN FY-FY+1 
950 IF FX<25 THEN RETURN 
950 GOTO 570 
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A 



3->>3 X-BX: Y-EY :RR-R 

990 IF FX-0 THEN FX-24 : P-l : BX-BX-1 

:IF BX-0 THEN EX-7 
990 IF FX-25 THEN FX-l:R-2s8X-BX*l 

: IF EX-B THEN BX-i 
1000 IF FY-0 THEN FY-24 i R-3 : EY-EY-1 

: IF BY-0 THEN BY- 12 
1010 IF FY-25 THEN FY-1 : R-4 : EY-BY+1 

: IF EY-13 THEN EY-1 
1020 BR-FECBX.BYD 
1030 IF BR<2 THEN 1130 
1040 ON P GOTO 1050, 1070, 1090. 1110 
1050 IF ER-3 OR EE-S QR BR-S THEN II 

30 

1060 GOTO 1170 

1070 IF BR-3 OR BR-7 QR ER-8 THEN 11 
30 

10B0 GOTC 1170 

1090 IF SR-2 OR EP-B CR EP-9 THEN 11 
30 

1100 GOTO 1170 

1110 IF EP-2 OR ER-5 CR BR-* 7 THEN 11 
30 

1180 GOTO 11" 7 0 

1130 IF RD-1 THEN 1170 

1140 PH-INTCRQ/RS*100) 

: IF PR<HI THEN HI-PR 
1150 PR!NT"CHOriE.CRSR H0JRE33. 

ELAA; "HI "CCRSP UEN5TRE , 

SPACE: 1 "; C6RAA13"; 
11B0 FOR ft-1 TC 10: FOP F-G TO 15 

: POKE UU*39,F:NEXT F.A 

:POKE UU+ei,0:TOKE UU*32.0 

:GOTC 1920 



1170 


BR-FECX 


,Yt) 




1 LB0 


IF 


ER<>4 AND ER<9 THEN ER-1 


1190 


IF 


BP<> 


9 THEN 1290 




1200 


IF 


RR-2 


CP PR-3 THEN 


ER-8 


1910 


IF 


PR-1 


OP PR-4 THEN 


BP -5 


1590 


IF 


ER<> 


10 THEN 1250 






1 F 


PP-2 


OP PR-4 THEN 


ER-7 


1943 


IF 


OOb i 


OR PR-3 THEN 


ER-5 


1950 


^ * 


5P<> 


4 THEN 1290 




1950 


IF 


PR-1 


OR RP-2 THEN 


BR-3 


12"*0 


IF 


RP-3 


OP RR-4 THEN 


EP-2 


1990 


GOSUB 1 


990: PRINT BPS': 


BR?: 



: RO-PO-1 : FE\ X . Yl'-BR 
1990 PRINT"'.HCriE,CRSR HOJREll. 
EL A AV "RQ W CCRSR UENSTPE , SPACE , 
GPAA1 ) " 

1330 PRINT"' HOHE, CRSR H3JPE21 , 

ELAA ? " 1 NT •: RO /PS* 100 > " C CP5P UENSTR 
E. SPACE. GRAA1 ?*: IF RD>0 THEN RETU 
PN 

1310 GOTO 1730 
1320 CO-0 

1330 JO-PEEK C 55320 

1340 IF JO-111 THEN S*SP : RETURN 



1350 IF JO-126 AND HX<7 THEN" 1410 
1350 IF JO- 125 AND HX> 1 THEN 1490 
1370 IF JO- 123 AND HY<12 THEN 1S73 
1390 IF JO- 119 AND HY>1 THEN 1650 
1390 C0-C0*1:IF C0<6 THEN 1330 
1420 RETURN 

1410 X-HX+1: Y-HY: FOR A-i TO 3 

: BOSUB 1950: PRINT LEFTS-: "'CREP OP 
3 1 " A 3 - 

1420 IF A<3 THEN XIS-'TW 

1430 IF A-3 THEN X1$-"LNN U 

1440 IF X-BX AND Y-BY THEN SX-SX-9 
: POKE UU-l.SX 

1450 PRINT BRSC FECX . Y ': ? : " ':CPSR NEB3, 
CPSP UENSTRE3.GPAA2, 
PUS ON; "X1S"<:RUS OFF . GRAA1 3 " 

1460 NEXT A 

14^0 IF X-BX AND Y-BY THEN BX-BX-1 
14B0 FECHX,HY5-FECX,Y?:FECX.y>-0tHX-X 
: RETURN 

1490 X-HX-1 : Y-HY : FOR A-0 TO 2 

: BOSUB 1990: PRINT LEFTS C " C CPSP NE 

D3!' " . A} ; 
1500 IF A-0 THEN X1S-'"LNN" 
1510 IF A>0 THEN XlS-TtSG" 
1520 r F X-BX AND Y-EY THEN SX-SX*B 

: POKE UU+l.SX 
1530 PRINT "CGRAA2. RUS ON > "X1S" ' PUS 0 

FF.CRSR NED, CPSP UENSTR E 3 , 

GPAA1 ;* "ERS'FECX . 
1540 NEXT A 

1S50 IF X-BX AND Y-BY THEN BX-BX+i 
1 550 FE I HX . HY D -FE C X . Y > : FE "1 X . Y J -0 i HX- X 
: RETURN 

1S" 7 0 X-HX : Y-HY*-! : FOR A-l TC 3 

rGOSUE 1990:PRINT LEFTS''. "( CRSR UE 
NSTRE3 3 ".A/; 

1S90 IF A'3 THEN X1S-"N" : X2S-"t?" 

1590 if a-3 then x1s-"l" : x2s-*'m" 
1s00 if x-ex and y-ey then sy-sy-9 
:poke uu.sy and 255 
:if sy<0 then poke uu+1b.0 
1510 print brscfecxj y!> " epaa2 . 
pus on? "x1s" 'crsr ned, 
crsr uenstre!' "x2s"ccrsr ned . 
cpsp 'jenstpe:- "X2S"':rus off . gpaai > " 

1920 NEXT A 

1E33 IF X-BX AND Y-BY THEN BY-EY-1 
1540 FECHX.HY.'-FE'.X. Y> rFECX, Y?-0:HY-Y 
: RETURN 

1ES0 X-HX: Y-HY-i : FOR A-0 TO 2 

iSDSUB 1930: PRINT LEFTS CRSP H0 
JRE3?",A:'; 
16S0 IF A-0 THEN X1S-"L" : X5S-"'.V 
IS" 7 © IF A>0 THEN XlS- w N":Xa»- H B" 
16B0 IF X-EX AND Y-BY THEN SY-SY*B 
:POKE UU.SY AND 255 
:IF 5Y>eS5 THEN POKE UU-1S.1 
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1590 PRINT** CSRAA2 ♦ RUS ON VX1S" CCRSR 
NED, CRSR UENSTRE > "X2S" CCRSR NED, 
CPSP UENSTRE3 H X28 J *CCRSR OPS, 
GRAAi? "ERSCFECX, V ?3 

a 703 NEXT A 

1710 IF X-BX AND Y-EY THEN BY-EY+1 
1720 FE'!HX.HY/-FE<:X. Y ) :FE f .X. Y.t-0:HY-Y 

: RETURN 
1730 POKE UU+eX t 0:X-*i;y-*€ 

:X$-" CCRSR NED.CRSR UENSTRE3 , 

SPACES. CRSR NED.CRSR UENSTRE3, 

SPACES , CRER CP5V:G0SUE 1990 

: PR INT X$; : GCSUB 1910 
1743 PRINT XS;:GOSUE 1910 
1750 X-3:F0R Y-5 TO B : GOSUB 1350 

: PR I NT XS;:GCSUE 1910: NEXT Y 
1750 X-4: Y-B:EC5UE 1990: PRINT XS 

:ECSUE 1910 
1770 X-5:FDR Y-B TO S STEP-1 

:GDSUE 1930: PRINT XS ;: GOSUB 1910 

: NEXT Y 

17B0 X--: Y-5: GOSUB 1990:PRINT XS 

:COSUE 1913 
1790 X-5 : PGR Y-4 TC 9:G0SUE 1990 

: PRINT XSrGDSUE 1910 : NEXT Y 
1800 Y-9:F0R X-3 TO 5:G0SUB 1990 

: PRINT XS: GOSUB 1910: NEXT X 
1810 X-6:F0R Y-9 TO 4 STEP-1 

: GOSUB 1990 : PRINT XS : GOSUB 1910 

: NEXT Y 

1650 Y-4: FOR X-5 TO 3 STEP-1 

: GOSUB 1990: PRINT XS: GOSUB 1910 
: NEXT X 

1930 PRINT"CHOriE.CRSR H0JRE13 . 

CRSP NEDB?YOU HAUE DONE" 
1B40 PRINT-CCRSR H0JRE13, 

CRSR NED? THE IMPOSE! ELE " 
195C PRINT"CCRSR H3JRE15. CRSR NEDS, 

SPACEHDYQU ARE" 
18E0 PR1NT**CERSR K0JRE11. 

CRSR NED j THE MASTER PUZZLER" 
1870 PR I NT "CCRSR H0JRE1 1 . CRSR NEDS . 

SPACE3.-KICK BUTTON" 
1BB0 PPINT*":CRSR H0JRE11 , CRSR NED. 

SPACES:-TO PLAY AGP! N" 
1B90 JQ*PEEKCSB330?sIF J0<>111 THEN 

1993 
1903 GOTO 130 

1910 FOR P-l TO 10 : NEXT : RETURN 

1993 PR I NT " CHOflE , CRSR NEDS?"; 

1930 FOR P-l TO Bi : PRINT ,-| :CRSR H0JRE 

S,5PACE3B:'":N£XT A 
1940 PPINT'*CELAA. HOME. CRSR NED73 " 
1950 PRINT**CRUS ON . CRSR H0JRE5 ,'MBeMB 

ISM I H2M52AAHG! ! riASM2en9 1 " 
I960 PPINT"CRUS CM, CRSR H0JR£6:'nLNMN 

2MFG{?MNAAA9A?MA2MNAMNG " 
1970 PRINT" r RUS ON , CRSR H0JRE5M1MBMA 



5MAA(*MNNAAF?GF@GMNNMFI y 
19B0 PR I NT"*1 CRSR NEDS , 

CRSR H0JRE5)PPES5 BUTTON TO PLAY 

AGAIN 1 CGRAA1 "J " : GOTO 1B90 
1593 PRINT"CHDMEV; 
S00C PRINT LEFTSC "CCRSR NED373 " , 

X*3-l 3 ; 

S310 PRINT LEFTS'! "CCRSR H0JRE373", 

Y«3-13; : RETURN 
5020 SX-EX-SH^FX^-aS: SY-EY-S4*FY*13 
9030 IF SY<255 THEN POKE UU*1B,0 
5043 IF SY>2SS THEN POKE UU+1S.1 

:SY-SY-S5B 
S050 POKE SX:POKE UU . SY : RETURN 

5050 DATA 49. 190. 252.255, 1S0. 48 
S070 DATA LNN , MBS , MSB , LAN , HAG , MA@ 
53B0 DATA LNN , AAA , MSB . LAN . AAA . MAB 
SC93 DATA LAB , MI A , MBB . CAN , AHB . MBB 
9130 DATA LNN , MGA , MAD . LNN . AFB , EAB 
S110 DATA LAE , AJA , EAB , CAN. AKA . MAD 
S1S0 DATA 255, 255, 2SS, 255.255.255, 

S55.S55.S040 
9133 DATA 0.3.3.3.3,3,3,0.0 
S140 DATA 0.255.555,555,197,63,31,15 

1031 

S150 DATA 0. 1S7. 1S7. 1S7, 1S6, 194, 190. 
11S.9E3 

S1E2 DATA 15, 31 .53. 127,255, S5E,S5S, 
S55, 1S5G 

2170 DATA 112,120,124,126,127.127, 

127, 1B7.993 
9183 DATA 955.197.53,31.15.7,3,1,539 
9193 DATA SEE . 554 , SEE , 946 . 240 , 924 , 

195. 158. 1793 
5500 DQTA 1 ,2, "\ 15, 31 .E3, 127.553,505 
5510 DATA 158,192.554.540.548,952, 

554.. 555. 1793 
5553 DATA 128 , 54 . 32. IE , 9 , 4 , 2, 1 , 555 
5530 DATA 1,9,4.8.15.35.54,159.555 
2243 DATA 0 . 127 , 127 , 127 , 127 , 12? . 12? , 

IS" 7 . 999 

2553 DATA 12"' 127 157 12? 15*.'. 127. 

127 , 15" . 1015 
2550 DATA 0,255,255,555.255,255.555. 

2SS . i?e5 

2270 DAT" 3 IS" 7 , 555, 255, 255 ,255, 555. 

dec 2 C 5 "915 
5593 DATA 150.155.51.133.1.152,3.199 

855 

2293 DATA 0.208.157,0.208.199,0,539, 
9?1 

2300 DATA 157.0.509,189,0,210.157.0. 
922 

2310 DATA 210,189.0,211,157,0,211, 
189, 1157 

5350 DATA 0.192,157.0,212.239,506, 
553. 1554 

5330 DATA 169 . 55 , 1 33 . 1 . 99 . 9E . 3 , 3 , 542 
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GAMES 



Spectrum 



Racerkoreren 



Din Spectrum er blevet forvandlet 
til en fjemstyringsenhed 3f en fuld- 
stBrrelse racerbiLderdrenerrundt 
ude p3 banen, Selvsldderdu oppe i 
en helikopter og ser derfor hele ba- 
nen fra fugleperspektiv. 
Hold din racemil korende si langt 
som muligt Jo laengere. desto fie* 
re points. Bilen styres med fcigen 
de taster: 

I -ven5tre ( 2-hfljre.0-op.0-ned. 
God fornejelse. Og prwv nu at lade 
vaere med at smadre alt for mange 
bilen det giver sidan et frygteligt 
rod. 

Mikket Paulsen 



so 

3C 
40 
50 
60 
70 
80 
90 



REM 
REM 
REM 
REM 



bbbbbbbbbbbbbbbb 

ft RRCERKORER ft 
8 Copyrigt © ft 
ftMi »»£ i Paulsens 
bbbbbsbbbbsbbbbb 



GO SUB 9000 
GO SUB 8000 
LET lidaO: LET 0H9-0 
PRINT RT 0,0, 
B888B8B88aBB8888B888BBBBBB888B 
BBB8 BBBBB 0 

■Oft *88 
ftftft 8 8B8 

B8 B8BB BBB88BBBBB 

88 B88B8 BBBBBSS88BB88 

8B BBBB8BB8BB 

88 8B8BBBB 



888ft88 
8B8B88 



888888888BB8BB 



BBBBB 

-8S 8 

8 



BBS 
888BB 
88" 
100 PRINT 
BBBB 88888B8 
B88B 888BBB8 
B88 88B888B88 

an aftftftflftftftaBB 8 

BB B888B8a«ft88BB 888 
B8 8888888888888 8888 

888 SBaaBBBSBBBa 888B 

8888 BBB88B88BB8888BBB8 8 

88888 
8B888B 

8888888 8888 
B888BB0B8BBBBB88B888B8BBB8BB8B8B 

8" 

110 LET P_rh«19: LET PC 1=7 
120 PRINT INVERSE %1 INK 1 i RT 2 
0,29; "HI";RT 21,31-LEN STR$ h>; 

INVERSE ti INK i;hi 
130 PRINT RT pfh.Pf 
135 BEEP 1,12: BEEP 
.15,12: BEEP .15,16 
2: BEEP .15,16: BEEP 
140 PAUSE 0 
150 LET 9010=160 
160 LET A * ■ INKEYf 
170 PRINT RT 20,0. 



j INK ! 
. 15,7: 
BEEP 
1.5, 19 



INVERSE 1, 



NK 1; "SCORE"; RT 21.5-LEN 
d; INK 1, INUBRSE l;tid 
ISO LET lid*tid+l 
190 IF **«"1" THEN GO TO 
200 IF »i="2" THEN GO TO 
210 IF **«"0" THEN GO TO 
£20 IF **s"0" THEN GO TO 



STRt 



290 
340 
240 

390 




1 



I 

ti 



24 TAST 




230 GO TO 90 to 
24.0 LET prhsprh-1: 
IF SCREEN* (prh,P 
GO TO 1000 



LET gotO=240 
f L) ="0" THEN 



£50 PRINT AT prh.prt; INK 2; "I" 
; RT pfh + l.pr L ; 

250 PRUSE pause 

270 BEEP .03, -20 

230 GO TO 160 

290 LET pr l=pf I -I: 
IF SCREENS tpfh.p 
GO TO 10OO 

300 PRINT RT prh,P 
', AT pf h ,pr L + li " 

310 pause pause 
320 BEEP .03, -20 
330 GO TO 160 
34-0 LET prl-prl + l 

: IF SCREEN % ip T h , P f \ ) = "»" THEN 
GO TO 1000 



LET 9010=290 
f U ="tt" THEN 

rl; INK 2; "H" 



LET gotO=340 



prh.pr l: INK 2; H 



LET 90 

U = "B" 



10=390 
THEN 



350 PRINT RT 
;RT p rh ,pr l-l; 

360 PRUSE pause 

370 BEEP .03,-20 

360 GO TO 160 

390 LET pfhaprh+1 
IF SCREEN* (pfh,pr 
GO TO 1000 

400 PRINT RT prh,Pf 
i RT prh-i.pr i; 1 ' " 

410 pruse pause 

420 BEEP .03,-20 

430 GO TO 160 
lOOO PRINT RT prh.pr 
INK 6, PRPER 2; 
1010 FOR a =20 TO -20 
EP .03, a: NEXT a 
1015 PRINT RT 21,9; 
YT SPIL-TRST" 
1020 PRINT RT 3,6, PRPER 4, "DU K 
OPTE GflLT ! ! " ; RT 10,11; PRPER 6; 
FLRSM 1; "GRIiE OVER" 

1030 IF tid>hi THEN LET hi=tid-l 
15,9; INK 1; INVERSE 



INK 2, - 'T" 



.; FLASH 1, 
STEP -1: BE 
INVERSE i;**N 



SCORE" : PRINT RT 20 
1; INK 1; "HI"; RT 21 
hi; INK 1; INVERSE 



200 

0: GO TO 70 
7: PRPER 7 



5; 



PRINT RT 
1; "NY HIGH 
9; INVERSE 
1-LEN 5TR* 
hi 

1035 PRUSE 
1040 PRUSE 
3000 BORDER 
LS 

oOlO PRINT PRPER 
RCERKORER 

3015 BEEP .1,7: PRUSE 
,7: BEEP 1,12 

3016 PRUSE 10: BEEP .1 
1,12; BEEP .1,7: BEEP 
P 1, 16 

3020 print - '"I dene 
pit s ta l du p rOve a 
n rundt i din 
rtigt son »u- 
hurii 9 1 eller 
paa> KOrer du 
i k ke Let at 
3030 PRINT ' ' 



2 

,5 
l; 



INK 0 



7 
1 



BEEP .1 

BEEP . 

12: BEE 



Spectrum s 
t fcOre bane 
Super-Racer saa hu 
Ligt. Du kan kore 
langson t , men pas 
hu r 1 1 9 1 , er biien 
s tyre ." 
"Mvi iken has tighed 



Langs oast 



IF pause 

TO 3040 



1 OR 



+ 7 



(1-10)7 10 

e r hur t i gs t . " 

3040 INPUT pause : 
pause >10 THEN GO 
3050 RETURN 

9000 FOR a=U5R TO USR "d 

9010 RERD user: poke a, user 
9020 NEXT a 

9030 OflTR BIN OOIOIOIO.BIN 00111 

110, BIN O0101O10, BIN 00001000,61 
N O0O111O0.BIN 01011101, BIN Olll 
111 1 , BIN 01O11101 

9040 DRTR BIN 00000111, BIN 11100 
010, BIN 01001111, 255, BIN 0100111 
l.BIN 11100010, BIN 00000111,0 
9050 DRTR ©.BIN lllOOOOO.BIN 010 

00111. BIN 111 100 10 ,255 , BIN 11110 
01O, BIN 010O0111, BIN 11100000 
9060 DRTR BIN 10111010, BIN 11111 
110, BIN 1O111O10.BIN O0111OO0,BI 
N 00010000, BIN O1O1O10O, BIN Olll 
1100, BIN 01O1010O 

9070 RETURN 
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Commodore 64 






For mange af de lldtyngre dataen- 
tusiaster kan sproget I starten 
godt were en alvorlig foretflelses- 
m^ssig barriers* Derfor kommer 
programmet "Dan Basic* som en 
Abenbaring. for med dette pro- 
gram kan du snakke rigtig dansk 
med din C64. 'Dan Basic - oversset- 
ter ved hjselp af en MC nrtlne alle 
dine engelske kommandoer og 
fejlmeldlnger om til let forstAelige 
danske. Fra start ligger MCen i da- 
taJinier. men n3r programmet ka- 
res, laver det et nyt der kan saves 
og runnes. Det nye program er af 
typen 1987 sys 2061, Der er en 
ting, der ikke er fordansket nenv 
llg load/save procedures Forkor- 
telser af kommandonavne fsslger 
samme monster som hldtil set. 




close 


— IUK 


cir 


_ villi 

™ nui 


cma 


~ ten 


cont 


-igen 


data 


— data 


oer 


™ uei 


fn 


iii 


dim 


— aim 




— chit 


for 

tot 


fra 

TTd 


TO 


^ ni 


step 


— step 


[ It.r . 


*■ n$5te 


get 


-tag 


gosuD 


™ nop 


goto 


-ga 




_ Kmc 


men 




input 


^ input 


let 


~ laa 


IIST 


™ iisie 


luau 


nt?nt 


new 


- ny 


on 


— on 


open 


- 3ben 


poke 


— put 


print 


- skriv 


read 


- las 


rem 


— rem 


restore 


— nulstil 


return 


— lilbage 


run 


- kOr (k nul r) 


save 


— gem 


stop 


— stop 


sys 


-mk0r(M Knul 




R - masklnkode 




kar) 


verify 


- veri 


wait 


— vent 


Alle funktioner er de samme und- 


tagen: 




peek 


-kode 


fre 


-fri 



Thomas Knudsen 



1 REI1 CCJ 1987 EY THQriAS KNUDSEN 

3 REfl NflfiR DETTE PROGHAH RllfiNES OIL 

□ ET 

4 REM LAUE ET MYT PRCSRAfl, 

SDfl DU BLOT 

5 REM KAN EEMflE MED SAUE . 
B : 

7 DATA U, 8,198,7.156,50, HB.SU.HS, , . , 
1 69,44. 160, 6, 2 33. 95, 132.96, 159, 
174. 160, 11 



Q DATA 133;90, 132,91 , 159. 130, 160, 195, 
133,96. 135,e9. 32. 191. 153, 7E, .192, , 
169, . 133 

9 DATA 95, 133, SC , 133, SB. 159. 150. 133, 

95.159,192.133.91.133.89,32,191, 
163, 159.51 

10 DATA 133,55,159,192.133,95,159.32. 
133,90. 165. 195, 133.91 , 169, 13"\ 133, 
88, 169 

11 DATA 163. 133,63.32, 131 . 1S3. 76, 33, 
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1 95 , B3 , 76 , B5 , 2 1 2 , 70 , B2 , 1 93 , 78 . 65 , 
69,03,04 

12 DATA 197,69,65,84,193,73,70,90,85, 
B4 , 163 , 73 , 78 , 80 , 85 , 212 , BB , 73 , £05 , 
76,65, 69 

13 DATA 211,78,65,196,71,65,193,75, 
4B , 210 , 72 , 86 , 73 , 21 1 , 78, B5 , 76 , 83, 

B4, 73. 204, 72 

14 DATA 79,209,84,73,76,66,65,71,197, 

32 , 69 , 205 , 83 , 84 , 75 , 208 , 79 . 208 , 86 , 
69,78,212 

15 DATA 72, 69, 7B, 212,71.83,205,86, 63, 
B2, 201. 60, 69, 19B, 80, 95, 212. 83. 75, 
B2.73,86 

16 DATA 163, 83.75,62,73,214, 73. 63, 
206 . 7E , 73 , B3 . 84 , 197 , 78 . 85 , 204 , B4 , 
69 88 212 

17 DATA 77.75.48,210,65.65,66.59,206, 
76 , B5 , 203 , B4 . 85 , 193 . 78 , 217 . 94 , 65 , 
66, 158. B4 

IB DATA 73,204.70,206,83,80,67,158. 
83 , 65 , 193 , 78 , 73 , 212 , B3 , B4 , 63 , 208 , 
171,173,170 

19 DATA 175,222, S5.7B, 196,79,210. 190. 
1 83 . 18B . 83 , 71 , 206 , 73 , 79 . 2 1 2 , 65 , 66 , 
211.95,93 

20 DATA 210, 70, 82, 201, 80, 79, 211, B3, 
81,210,82,78, 136,76.79, 199,63,88, 
209, 67, ^3 

21 DATA 211, 83, '3, 208, B4 , 65, 205, 55. 
B4 , 206 , 75 , 73 , 5B , 197 , 76 . 63 . 205 , B3 , 
B4.B2, 164,86 

22 DATA 85,204,65,83. 195, 87,72, B2, 
164 . 76 . 59 , 70 , B4 , 164 , B2 . 73 . 71 , 72 . 
84 164 77 73 

23 DATA SB, 164, 71,207. 0,32.70, 79, B2. 
32. 77, 85. 7B, 71,69, 32, 70, 73,2*4, 70, 
73,75,32 

24 DATA 32,23,65,59,205,70,73,75.32, 
73,75,75.59,32.93,66.63.206.70.73, 
76 32 73 

25 DATA 39.75.32.70, B5. 78, 66,59.212. 

63, 7B. 72, 69. 69. 32, 73, 75, 75. 69. 32, 

79,79,45,76 
?8 DATA 73.78.137,73.75,75.69.32.73. 

79 . 30 . 95 , 84 , 32 , 70 , 73 , 204 . 73 , 75 , 75 , 

63 32 79 

27 DATA 95.84,90,35,94.32.70,73,204. 
70 , 73 , 76 . 7B . 65 , B6 , 79 , E9 . 94 . 32 , 77 , 

65.79,71.75 
2B DATA 53.210,70,-9.32.75,59,32.94, 
32.58.63.85,73.67,63,32,78.85,77, 

77,69. 210 

29 DATA 7Q i 5c S 3 i g3 ie L ii6 Q t 3 2i g5 i6 g t 

63 . 78 . 32 , 32 . 70 , B£ , 1 93 . B3 , 33 . 7B . B4 , 

65 216 04 

30 DATA~73, 75,56,65. 71. 63. 32, 32.35, 
58. 55. 76. 32. 53. 79, 32, 72. 73. 20B. 68. 
85,84,65.32 



31 DATA 77,65,78.71,63,204,85,68,63, 
7B , 70 , 73 , B2 , 32 , 73 , 77 , 82 . 65 , 65 , 68 , 
69,212,79 

32 DATA 86,59,82,45,76,46,194,77,69, 
77, 79. 82, B9, 32, 77. 65, 7B, 71, 69, 204, 
7B,73,7B 

33 DATA 73,69. 32. 70,73, 79,68, 69, B3, 
32 , 73 , 75 , 75 , 197 , B5 , 68 . 69 , 7B , 70 , 73 , 
B2, 32, 32. 32 

34 DATA 68,73.205,59.82,32,68.73,77, 
77 , 69 , B4 , 32 , 70 , 4B , 21 0 , 68 , 73 , B6 , 73 , 
63,73,79 

35 DATA 79,32,77,69,58,32.78.85,204, 
75 , BS , 78 . 32 , 73 , 32 , 32 , 80 , B2 , 79 , 71 , 
82, 65.205 

36 DATA 70,79, 88,75.69, 82, 84,32,38, 
84 , B9 . 80 , 197 , 83 , 84 , B2 . 69 . 7B . 71 , 32 , 
70,79,92.32 

37 DATA 75.65.79,129,73,47,79,32,32. 
59 , 65 , 94 , 193 , 70 . 79 . 92 , 77 , 69 , 76 , 32 , 
70,79,82 

3B DATA 32,75,75,77,30.75,63,75,211, 
75,65,79.32,73,75,75.55.32,32,73, 
71 ,69,20E 

39 DATA 85.63.55.70,73,45,32.32.70. 
85,76.75.84,73.79, £05 . S5 . 63 , B2 , 73 , 
70, 217,72 

40 DATA 69,79,212,158,161,172,181, 
131 ,161, 194, 161 ,20B, 161,226, 161 , 
240, 161,255 

41 DATA 161.16.162,37.162.53.162,59. 
152.73, 162,90. 152. 106, 162, 114, 162, 
127, 152 

42 DATA 144,162,157,152,170,152,186, 
1 52 . 200 . 162 , 21 3 , 162 . 228 . 162 . 237 , 
162. , 153, 14 

43 DATA 163,30.153,36,163,131,163.13. 

-7Q 7C 13 3P 33 CO -*u "*C UC 

32.73,32,32 

44 DATA, 13. 10,42.75,76.55,82,42,13, 
10, ,13.10.66,62.95.68.64,0.162, , 
142. 32.208 

45 DATA 142.33,206.189,52.195.201. 
255 , 240 , 79 , 32 , 210 , 255 . 232 . 76 , 39 , 
195. 147.5, 17 

4E DATA 42,42,42,42,32,59,65,78,32, 

65,55,93,73,67,32,40.57,41 ,32.49, 

57.56.55, 32 
47 DATA 66,89, 32, 84,72, 79, 7?, 6S,B3, 

32,75,32,42,42.42.42, 17, B3.e9, 83, 

32 52 57 49 

49 DATA S3, 50, 32, 70, ^g.82. 32. 71, 63, 
7e.e3. 94. 65. 82. 94, 12. 255. 255, , , . 
169,54.133.1 

4° DATA 9E ; REP ** EMC OF DATA 

50 FCF A = 2049 T3 2233: HEAD E: POKE A. 5 
: COB: NEXT: IF £088512" THEN FPIN 
T "DATA FEJL": END 

51 PDKE 45.174:FC!KE 46,11 
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Et rigtigt godt lille 'tool", der kan 
gflre det nemmere for dig at bruge 
computeren som tegneredskab. 
Det er 'Buer' i en nflddeskal. Tast 
programmet ind pa din Enterprise 
og du vil v«re i stand til at tegne 
en bue fra et punkt til et andel 
uden at skulle fodre maskinen 
med masser af indvlklede pro- 
gramlinler. For at tegne en bue. 
skal du bare fortaelle programmet 
buens maksimalhfljde samt be- 
gyndelses- og ende-punktet. Det- 
te gares ved kommandoen: 
CALL BUE (SX5Y.SLX5LY.H) 
(SX.SY) er buens begyndelses- 
punkt. (SLX.SLY) er buens ende- 
punkt. H er buens maksimalhajde. 
Hvis buen ikke kan v*re p3 skaer- 
men. sa n0jes programmet bare 
med at tegne den del, der er plads 
til. Efter selve bueprogrammet - 
DEF-blokken - . er der givet et sim- 
pelt eksempel p3 udnyttelse af 
■Buer'. 

Henrik Jensen 




100 DEF BUEfSX.SY.SLX.SLY.H) 

£2 ^'z^x-s^^T-Lr-sv-.LET „x-,sx-su<,, 2 : LE t Wf-<*f.«.r„«M mm* 

<Z*2*V"2> ) /2 

130 IF 2-0 THEN GOTO 210 

140 LET VI-ATN(V/Z):LET AX-COS < VI >: LET AY-SIN<VII 

\ll ^'^^T?I^ 1 S^XNCT, 5W ************** P2-D*ay- J *ax-my: 

LE I^ R0UN I^ t-ll THEN SET BEAH OFF:OOTO 1,0 

180 PLOT Pl,P2l 

190 NEXT 
200 GOTO 260 

l£ F0 ^%I^OS^?Inx : LET P2.A.SXN<T>-HY:LET E-ROOND<PX.U:LET L-R0UNDiP2 

'%0 IF E<0 OR E>1279 OR L<0 OR L>719 THEN SET BEAM OFF:GOTO 230 

240 PLOT P1.P2I 

230 NEXT 
260 SET BEAM OFF 
270 END DEF 
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280 ! |HH H H H H H HHHHHHHHHHHHHHHH> ! 
290 !##DETTE ER ET EKSEMPEL**! 
300 ! **** * KM H HHHHHH H M * * **** ! 
310 GRAPHICS 4 

320 SET WlOllPALETTE O, 255, RED, YELLOW 
330 CALL BUE (440, 323, 880, 523, 100) 
340 CALL BUE (880, 323, 880, 123, 100) 
330 CALL BUE (880, 123,440, 123, -100) 
360 CALL BUE (440, 123, 440, 323, -100) 
370 CALL BUE(440,323 t 880,123,100) 
380 CALL BUE(440, 123,880,523, 100) 

400 !*#DETTE ER BARE LIDT 
410 f WHHHHHHHHHHHHHHHHH I 
420 SET INK 2:PL0T 600, 523, PAINT: PLOT 600, 123, PAINT! S 
NT I PLOT 880, 300, PAINT 
430 RANDOMIZE 
440 DO 

450 SET t» I O 1 : PALETTE O, O, INT ( RND*256 ) , INT ( RND#256) 
460 UAIT 1 

470 LOOP UNTIL INKEY»<>"" 




Mastermind 




Her er et godt mastermind til 
BBC'en. Det falger de rigtige reg- 
ler til punkt og pnkke. hvor der er 
seks farver. og det er muligt at an- 
bringe samme farver i samme ko- 
de mere end een gang. Det er dog 
ikke muligt at bruge 'tomme hul- 
ler". dvs. at undlade at saette no- 
gen brtkker i nogle af hulleme. Gra- 
fikken er ikke I topklasse. men det 
skyldes. at derer benyttet "MODE 
2*. da man skal bruge mfndst one 
farver. er det jo en npdvendighed. 
God fomejelse. 



«KEYO 
*KEY1 
*KEY2 
*KEY3 
IKEY4 
•KEYS 
•KEYS E1M 
•KEY? S!M 

DIMkode<4>iDIMk(4) : DIMg, 



1 ;n 
2!M 
3;n 

4|M 
5!M 
6IM 



rt <4) t DIMg (4) 



110 REPEAT 



170 MODE 
180 END 



PRQCini t 
PROCspi 1 1 epl ade 
PPOCgaet 
PROCllut 
UNTIL gamsover 
7 
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190 DEFPRGCl nit 
200 ikke-f leregaet-FALSE 
210 gameover "FALSE 
220 rigtigkode^FALSE 
230 VDU 5 

240 VDU 29.224; 100: 
230 VDU 19,5,7,0,0,0 
260 VDU 19,0,6,0, 0,0 
270 VDU 19,6,0, # 0,0,0 
280 VDU 19,7,3,*0,0,0 
290 YV.-80 

300 FOR test=l TO 4 I kode ( t »»t > =PND ( 6) : NEXT 
310 ENDPRQC 

320 DEFPROCspilleplade 

330 GCOLO. 129 

340 CLG 

350 GCOL 0,4 

360 MOVE 192,0:DRAW O.OtPLOT 85, 192, 416t PLOT 85,0,416 
370 GCOL 0,0 

3BO MOVE 0.512iPLUT 85. 832, 416: PLOT 85,832,312 
390 GCOL 0,4 

400 MOVE 0/576: DRAW 0.51 2: PLOT 85. 832, 376: F'LOT 83,832,512 
410 GCOL 0,7 

420 MOVE 192,416:DRAW 832.416iPL0T 85, 1 92, O: PLOT 83,832,0 

430 GCOLO, 3 

440 RESTORE 

450 MOVE 0,0 

460 REPEAT 

470 READ x% f yY. 

480 DRAW »X,y% 

490 UNTIL KX*yX 

500 GCOL 0,2 

510 MOVE 64,560 

520 PRINT-MASTER-MIND" 

530 MOVE 32, 400 

540 PR I NT" 10" 

330 MOVE 64,368:PRINT"9":M0VE 64 , 336: PRINT "B" : MOVE 64 , 304 : PR I NT " 7 " i MOVE 64.271 
:PRINT"6":M0VE 64. 240: PR I NT "5" : MOVE 64 , 208: PRI NT"4 " 

560 MOVE 64.176:PRINT"3":M0VE 64 , 1 44 : PRI NT"2" : MOVE 64, 1 12: PRINT " 1 " 
570 MOVE 224.48:PRINT"GAET" 
5B0 GCOLO. 1 : MOVE 64, 480: PRINT 

590 GC0L0.6:M0VE-224.915:PRINT"f0-R0D f 1-GRON *2-GUL"' "f 3=BLAA *4=HVID'" 
" -f 5-SQRT " : M0VE400 , 9 1 5 : PR I NT " f 8=SLET " :T10VE400 , 883 : PR I NT " f 9-SVAR " 
600 ENDPRDG 

610 DATA 0,576.832,576,832,512,0,512. 192,512, 192,416,0.416,832.416.832.512,832 
.0.312,0.512.416, 192,416, 192,0.832,0,832.64,0.64. 1°2.64, 192,0,0,0 
620 DEFPROCgaet 
630 X/>480 
640 REPEAT 

630 IF (Y7.-80) /32>-10 THEN 1 1 I e# I eregaet -TRUE : r l gt l g\ ode-TPUE : GOTO 7BO 

660 IF XV.-736 THEN XX-480 
670 X7.-XV.+64 
680 knaptryk-GET 

690 JF knaptryk-49 THEN PROC* arvt (1)> GOTO 780 
700 IF knaptryk=SO THEN PROC* ar ve (21: GOTO 780 
710 IF knaptryk=51 THEN PROC-f arve < 3> : GOTO 7e0 
720 IF knaptryk=52 THEN PROC* arve (4 ): GOTO 7B0 
730 IF knaptryk-53 THEN PROC-f arve (5) : GOTO 780 
740 IF knaptrvl.-54 THEN PROC* ar ve (6 > : GOTO 780 

750 IF knaptryk-69 THEN GCOLO. 7 : M0VE544 . 48: PRINT " t »f* ": XV.-480: GOTO 730 

760 IF knap try k-83 AND POINT (768. 32) < >7 THEN PROCsvar : GOTO 780 

770 XX-XK-64 

780 UNTIL rlgtigkode 

790 ENDPROC 

BOO DEFPRDCtar ve ( f arve) 

BIO GCOL O.farve 

820 MOVE XX. 48: PRINT"*" 

830 ENDPROC 

840 DEFPROCsvar 
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850 
860 
870 
B80 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1 000 
1 0 1 0 
1 020 
1030 
1040 
1 050 
1060 
1070 
TILLY*' 

1 080 
ROCvis 
1090 
1 1 00 
1 1 10 
1 120 
1130 
1 1 AO 
1 ISO 
1 1 60 
1 170 
1 180 
1190 
12O0 
1210 
1220 
1230 
1240 
1 250 
1260 
1270 
1 280 
1290 
1300 
1310 
1320 
1330 
1340 
1 350 



hvi d -«1 
sort:—! 



THEM FRUIT". " : hvi d"hvi d- 1 I F£*Ffc+64l 60TU °60 
THEN PRINT". ": sort-sort- 1 : F'i-F'4+64( GUTU 980 



THEN HOVE 192, 6«0l PRINT"AK - JH" ELBE HOVE 128* 640i PRINT" 

fci PLOT B5,79A»47&tP 



XV.=544 

sort-Oihvid-Or VX-VX+32 
gaet ' 1 > -POINT (576. 32) 
gaet (2) -POINT (640, 32 > 
gaet < 3> -POINT (704, 32) 
gaet (41-POINT 1768,32) 
PROCsort_hvid 
PROCvi si ode 
FX-224 

IF hvid-4 THEN r i gt i g> ode -TRUE 
GCOL 0,3 
MOVE FX. Ytf+10: IF 
GCOL 0,6 
MOVE FV.. YV.*lOt IF 
XV.-4B0 
ENDPROC 
DEFPROCslut 
gaet ( 1 ) -kod*tl> 
gaet (2) «kode(2> 
gaet <3) -tiOde'3> 
gaet <4) -kodef 4> 
GCOLO. 4 

IF i M e< 1 eregoet 

KG! " 

YV.-472: GCOLO. 7:M0VE 544.444:M0VE 796.444;FLOT B5,li44.4 

koda 

GCOLO. 4 

MOVE -160.-32iPRINT"VIL DU PROVE 1GEN?" 
Icnaptryl -GET 

IF *naptryl=78 THEN gameover - TRUE I ENDPROC 
IF knaptrvfc-74 THEN ENDPROC 
GOTO 1110 
DEFPROCsort.hvid 

FOR husk = l TO • * 1 1: (husl )-kode<husl > ig fhusl. ) -gaet «husl ' t'JEXT 
FOR test=l TO 4 

IF gaet (teat) -l.ode<test> THEN hvi d-nvi d*l : gaet ' test > =0t 1 ode ' test > =7 
NEXT 
FOR test=l TO 4 
FOR husl =l TO 4 

IF gaet (test>=kode<husk> THEN sort =sort-M : gaet ' test )«'.•: lode <husl ) •/ 
NEXT husk 
NEXT test 
FOR hus»> = l TO 4 

kode<husV:)°t (hust ' : gaet (husk) -g (husl ) 
NEXT 
ENDPROC 
DEFPROCvis*ode 

M0VE544. YV.: GCOLO. gaet (1> : PRINT"*" 
M0VE608. vv.i GCOLO, gaet (2) i PRINT"* 
M0VE672. YV.I GCOLO. gaet (3) : PRINT"* 
M0VE736. Y*/.: GCOLO. gaet (4) i PRINT"* 
GCOLO . 7 1 M0VE54 4 . 48 : PR I NT " * * * * ■ 
ENDPROC 






Amstrad 

Regnskab 



Du har en Amstrad. men akono- 
mten sejler Fat mod, for nu er 
regnskabsprogrammet kommet* 
Nflr du har indtastet det SKAL du 
SAVE det. for du starter, da det vil 
slette noget af sig selv. N3r du 
starter op. skal du trykke CTRL 0 
(nullet pd det separate taltasta* 
tur) for at genstarte programmed 
Er du ved hovedmenuen. kan du 
trykke P for at s!S pnnteren til og 
fra. Og taster du 8. f3r du en flks Ni- 
le regnemaskine. Nu kan du si ind- 
tastedlt regnestykke,tryk ENTER 
efterfulgt af CTRL og V {punk- 
tummet pS taltastaturet). 55 
kommer resuitatet frem, og ved et 
tryk pd endnu en tast kommer du 
tilbage til hovedmenuen. 
Programmet kan vise over- og un- 
derskud ved hjaelp af 3D sfljler og 
nogle taster er desuden program - 
meret til at komme med flere ka- 
rakterer. 

Peder Pedersen 




20 KEY 20, : □*■ FRA " P=2: PEN MILOCATE i,Zi:PRINT-HUSK AT LOADE F0RST!«SPACE«J2 
5) : :PEN 9*INPUT'S«v»/Lbad navn M«*:IF LEN(.«>>1A THEN 20 ELSE PEN 3:L0CATE 1, 

!o : GOSUb"380MF [»<"*' 1 0R , i»>'9" THEN 30 ELSE ••-*•+ i*l LOCATE B,23:PRINT a**CHR» 
(1431-IF LENIa«)<2 THEN 30 ELSE PEN 1 : INK O.OlINK l,13:B0RDER 0 

50 on H error"goto ii20:key 30,--:mode V^MffWHidP*^^^ 9 !^^' 1 ' 90 '^' 24 ^ 1 

ND0UM3 . 1 . 60 . 21 • 23: UIND0UM4 , i . 80 . 2 . 20 : IF VAL<»*>/4-0 THEN ■%(Z)-29 
60 LOCATE Slfi-PRINT-R E gVs K A I '«*: LOCATE 31.3:PRINT"H 0 V E D 



MENU 1 



:LOCATE 3B,3:PRINT CHR»(164>- p 
NT-2. Sl«t':LOCATE 26. 12: PRINT"3 



• : locate 26,b:prini-i. input .lum 
R»tt»":LOCATE 26. 14:PRINT*4. Lint 



ut*:LOCATE 26,10:PRI 



32 TAST 



GAMES 



70 LOCATE 26, 16:PRINT"5. Soge' : LOCATE 38, 6: PRINT" 6 . Arsaveraigt": LOCATE 3gjlO;gR 
INT-7. ffndre *' taster ": LOCATE 38 , 1 2: PRINT "B. Regnemaak i ne" : LOCATE 38 , 14 : PR INT"9. 
Save data'ILOCATE 38 . 16 : PR INT " 0 . Load data" _ 

80 LOCATE 32,22:PRINT'Frie bytes " FRE <"") -4096: LOCATE 26 . 25: PRINT " An tal poster de 
r er brugt"n-l: LOCATE 32 , I 9 I PR I NT ■ Pr I n ter : "p«:S0UND l,ll9:G0SUB 370:IF i*-'p' A 

NT p=8 THEN p»-"FRA":p-2 ELSE IF i«-"p" AND p-2 THEN p*-CHR« 124) ♦ "TIL +CHR* (24) : 

§0 IF i«<"0" OR i»>"9" THEN 80 ELSE ON ASCU*)-47 GOSUB 630,160,130,200,230,730, 
960,690, 110, 620:G0T0 30 
100 ' Regnemaskine 

110 CLSH3: INPUTH3, "HUSK! ! CTRL*.*tast. Stykke" I c* : KEY 30,"? " *c«*CHR* ( 13) ♦ " CALL 
fcbbl8:G0T0 50"*CHR*(13) :CLSH3:END 

130 CLS:L0CATi°T,25: INPUT'Nr. du Vil alette (ENTER-MENU) "|s:IF a-0 THEN GOSUB 3 
00 : RETURN ELSE IF S< 1 OR S>n-1 THEN GOSUB 30O:G0TO 130 

140 FOR n-s TO n:dX(m) »dX(m»l) : w« (a) -w* ( n+ 1 ) : t <«)-t (m*l) : NEXT : n-n- 1 : GOTO 130 
130 ' Input 

160 GOSUB 520:CLS:s-p:p-2:QOSUB 280: p-a: LOCATE* 4 . 40, 1 : PR I NTH 4 , CHR* ( 24 ) I : PRINTH4 , 
USING" OVERF0RT H HHHHH, . HH " I k (n-1 ) : PRINTH4 . CHR* ( 24 ) I 

170 GOSUB 360: IF d*-"" THEN RETURN ELSE PRINTH4 , TAB ( 3) I dX ( n ) " *t»|:UINDOW SUAP 2 
:.4:G0SUB 45O:WIND0W SUAP 2.4 

1 80 PRINTM3, "Er dette rigUgt (en tast/n) " I : GOSUB 570: IF i«-"n" THEN PR1NTH4 , TAB 
( 0 ) t CHR* ( 1 1 i | : PR I NTH 3 , CHR* (II): GOTO 170 ELSE PR INTH3 , TAB < 1 ) I CHR« ( 1 1 ) I SPACE* ( 40 ) ! 

'CHR«( 1 1 ): GOSUB 420 : n-n* l: GOSUB 520:G0T0 170 

^190 ' Rette 

200 CLS-.LOCATE 1 . 23 : INPUT "Nr . du vil r#tt* (ENTER-MENU) "|s:IF S=0 THEN GOSUB 30 
0:RETURN ELSE IF s< 1 OR s>n-l THEN GOSUB 300:G0T0 200 

210 LOCATE B,3:PRINT w*(S):LOCATE 18,4:PRINT t(s):LOCATE 10,10: PRINT" Brug -COPY- 
: tasten til at kopire med.":LOCATE 1 . 2 : 1 -n : n-s : U I NDOU SWAP 0,3:G0SUB 370fn-l:UIN 
DOW SWAP 0,3: IF d*=" THEN RETURN ELSE 200 
220 ' Udskriv data 

230 CLS: l-n:G0SUB 280:F0R n-1 TO 1-1:G0SUB 340 : PRI NTH2 , CHR« ( 24 > I : PR I NTHp . USING" H 
HH'inl :PRINTH2,CHR«(24) i :PRINTHp, " "*•" " w* (n ) I : GOSUB 430: IF n MOD 23-0 THEN GOS 
UB 260 

240 NEXT: n=l : GOSUB 600:RETURN 
250 ' Udskri-ft pause 

260 IF p-8 THEN RETURN ELSE PR INTH 1 , TAB ( 23 ) " TRYK EN TAST FOR FLERE ( ENTER-MENY ) " 
:GOSUB 570:IF i*-CHR*(13) THEN n= 1 : RETURN ELSE CLSH 1 : RETURN 
270 ■ Overskri-ft 

280 PRINT CHR*(24) ; :WINDOW SWAP 0 , 2 : PRINTHp. - >Nr >" a»" >Dato< <<>>>>>>>>>>>>>> >Teks 
t< <<<<<<<<<<<<<<<>>Kasse<O>Indtagt<O>UdgWt<"i:WIND0W SWAP 0,2:PRINT CHR«(24) 
: RETURN 

290 ' Fej I ret/slet 

300 LOCATE 1.25: PRINT SPC(8)"Dette nr duer i kke f " SPC ( 1 0 ): GOSUB 400:RETURN 
310 ' Fej 1 dato Input 

320 e=UAL (MID*ld*. 1,2) ) :*=VAL(MID»(d»,3,2) ) : IF e< 1 OR e>12 THEN PRINTH3, "Fej 1 i 
dato! ":GOSUB 400:G0T0 360 ELSE IF *<1 OR *>mX(e> THEN PR I NTH3 , " Fej 1 1 dato.'*:GOS 
UB 400: GOTO 360 ELSE 370 
330 ' Data streng 

340 d*«STR*<dX(nf) : * -VAL ( RI GHT* ( d*. 2) ).: e«-LEFT* < d«. LEN ( d*) -2) :e-VAL(e*) : b*-LEFT* 
(■•<•) .3) :c*»STR«(* ) " : *«-b*+C»: IF *<10 THEN **-b**" "*c»:RETURN ELSE RETURN 

350 ' Input/Rette 

360 INPUTH3, "MSnedDato fx. 0916 (ENTER-MENU) ■ I d*: IF d*""" THEN GOSUB 300:RETURN 
ELSE dX(n)=VAL (d*) :d=dX(n) : IF LENId»)<>4 OR INSTR(d*, "fc" ) >0 THEN PR INTH3 , "Fej 1 i 
l*ngden. GOSUB 400:G0T0 360 ELSE 320 

370 PRINTH3.TAB(46) !CHR»( 143) I "STOP her " (CHR* (11): LINE I NPUTM3, " Tekst " | t*: I F LEN 

ft*)>38 THEN PRINTH3 . "Fej 1 i 1 angden .": GOSUB 400:G0T0 370 

3B0 w«(n)=t«: INPUTM3, "Ud--tal , Intf=tal "It: t ( n ) -ROUND ( t , 2) : k ( n) -k ( n-1 ) ♦ t ( n ) : RETURN 
390 * Pause 

400 FOR o=l TO 500 : NEXT : RETURN 
410 ' Sorterer 

420 IF dX(n) >dX(n-l) AND h* ( n ) >w* (n-1 > THEN RETURN 

430 FOR m-n TO 2 STEP -l:IF (dX (m)< dX (m- 1 > > OR ( dX (a ) -dX (m- 1 ) AND h* (■ )< h* (a- 1 ) ) 
THEN H*(n) -w* (n-1 ) : t (m)-t (m-1 ) : dX ( m) -dX (a- 1 ) : h* ( m- 1 ) - t»: t ( a- 1 ) - t : dX (a- 1 ) -d : t*-H* 
tm-l):NEXT ELSE RETURN 

430 PRINTHp, TABI51) jUSING"HHHHHH,.HH"|k(nU:IF t(n)<0 THEN PRINTHp , TAB (72 ) I USING 
" HHHHH , . HH ; ABS ( t ( n ) );: RETURN 

460 PR 1 NTHp, TAB (62) i USI NG ■ HHHHH , . HH "| t <n) | : RETURN 

470 ' See udskrl+t 

ABO PRINTH2,CHR«(24) ; : PRI NTHp , USING " HHH " 1 n I : PRI NTH2. CHR* ( 24) 1 : PRINTHp, " "*•" "w* 

(n)|:QOSUB 430: b-b*t (n) : t-t*lS IF t MOD 23O0 THEN RETURN ELSE GOSUB 260:RETURN 
490 1 Ordne kassen 

500 FOR ib-1 TO n:k lm)=RUUND(k (m-1) »t (m) ,2) :NEXT:RETURN 
510 " Mere plads? 

520 IF n>a OR FRE ( " " ) -4200< 0 THEN LOCATE 1 . 23: PRI NT " I k ke mere plads desv»re!":GO 

SUB 400: GOTO 30 ELSE RETURN 
530 ' Sammentaller 

540 IF t(n)<0 THEN u ( •) *u ( ■) +ABS ( t < n ) ) : u ( 0 ) =u ( 0) *ABS ( t ( n ) ) ELSE i ( e ) - I ( e ) ♦ t ( n ) : i 

(0)=l(0)*tln) 

550 r(e)-l(e)-U(e>: RETURN 
560 ' Inkey* 

570 SOUND 1, 1911,3:S0UND 3.478,5 

580 i*-LOWER* ( INKEY*) : IF i*-"" THEN 580 ELSE RETURN 
590 " Tast tryk 

600 CLSH1:S0UND 1,119:L0CATE 35, 25: PRINT " Tryk en tast":CALL LBB18: RETURN 
610 ' Save data 

620 OPENOUT s»: WRITEH9, n, a«: FOR ■>-! TO n : URXTEH9, H« (■) , dX <■) . k (a) , t (■> : NEXT 
630 FOR »-0 TO 29: WRI TEH9 , ha (a ) : NEXT: CLOSEOUT: RETURN 
640 ' Load data 

£ 5 ? u £t S iE R * INT " HUSK! du • I » tt » r »**• data. Gave ? (J/an taaUVGOSUB 570:IF 
THEN 620 

6ftO OPENIN ■•:INPUTH9.n,a«:F0R m-1 TO n : INPUTH9 , w* (a ) , dX ( B ) . k ( ■) , t (■! : NEXT 
^v^Sc^Sm 10 29:INP6TH9,h«(«):KEY m , h* (a I : NEXT : CLOSEIN : FOR n-n* 1 TO a: m4 (a) " 



TAST - 33 



680 ' F"-ta»t»r 

690 CLSIPRINT CHR» ( 24 ) STRING* ( 34 , 62) ■ Tekat taster 'STRING* ( 34 , 60) CHR» (24) : PRINT"T 
altaster. " SPC (30) "F ' tas ter . " : FOR m=0 TO 9:L0CATE l,m*5:PRINT CriR*(24) B CTRL'm" - 
-CHR*(24>" -h*<i») : LOCATE 41 , 1 <tn+10>*2) -13:PRINT CHR»(24>" SHIFT - •CHR*(24 

)" ■h*(ra-10) 

700 LOCATE 41 ,< <m+10) *2> -14: PRINT CHR*<24) ■ CTRL fV - "CHR*(24>- 'h»(**20):NE 
XT:GOSUB 600:CLS:PRINT"Tal med CTRL nede. Har tastnumrene: "CHR*(241" 12 3 
4 5 6 7 8 9 0 ' CHRS 1 24 ) 

710 LOCATE l,5:PRINT'Numrene tar F ' taster :": PRINT: FOR n=0 TO 9:L0CATE 5+**3,b+7: 
PR I NT "SHI FT f "m" : "CHR* ( 24 ) ; re* 10; CHR* (24 ) I SPC (10) 'CTRL I'm' : "CHR*(24J |»+20|CH 

720 LOCATE 1, 19: INPUT "Tekst 1 ENTER=MENU> * f h*: IF h*="" THEN RETURN ELSE PRINT:IF 

LEN(h*)>20 THEN PRINT'For mange tegn!':G0SU8 400:GOTO 720 

730 INPUT "Tast-nr: " 1 hi IF h<0 OR h>29 THEN 720 ELSE h«(h)=h«:KEY h,h*:GOTO 690 
740 ' Soedel 
750 1-n-l 

760 CLS:PRINT CHR* (24) I STRING* ( 36,62) " S0GN I NG "STRING* ( 37, 60) I CHR* (24) : LOCATE 34, 
5:PRINT"A. S#ge Mined ": LOCATE 34 , 8: PRINT'B. Sage Data* : LOCATE 34, 1 1 : PRINT'C. Seg 
e Tekst" 

770 LOCATE 34 , 14 : PRINT" D. Sege Ind /Ud ■: LOCATE 34, 17: PRINT "E. List* nr-nr" : LOCATE 

34,20:PRINT'F. (Endre */- " j : LOCATE 34 , 23: PRINT " ENTER=HOVED MENU" 
7B0 GOSUB 570:IF i*<"a" OR l«>-f THEN IF 1*=CHR»U3) THEN n" 1 ♦ 1 : RETURN ELSE 780 
790 CLS:GOSUB 280: CLSB2: t-0 : b-0: ON ASC(i*)-96 GOSUB BIO, 840, 870, 900, 930,800: PR IN 
TMp.TAB(56) [USING'Ialt MMHHHtt ..*•«" | b : GOSUB 600:G0T0 760 
BOO INPUTMl.'Indtast ♦/- tal > 0 "Ij:lF j<0 THEN 800 ELSE RETURN 
810 INPUTH1. "Hvi Iken mined (l-12)"|s:IF s< 1 OR B>12 THEN 810 
820 FOR n = l TO l: GOSUB 340: IF e«s THEN GOSUB 480 

630 NEXT: RETURN ^ 

840 INPUTMl. "Hvi Iken dato < 1 -31 ) " 1 s: IF S< 1 OR s>31 THEN 840 
850 FOR n = l TO 1 : GOSUB 340: IF + ■« THEN GOSUB 480 

860 NEXT: RETURN „„ 

870 INPUTN1, "Hvilken tekst" It*: IF LEN(t*)<l OR LEN(t*)>38 THEN 870 .„ 
880 FOR n-1 TO 1 : GOSUB 340:IF INSTR (LOWER* (m* (n) ), LOWER* < t*) ) <>0 THEN GOSUB 480 
890 NEXT: RETURN 

900 INPUTM1, "Hvi lken Indt»gt/Udgi*t (ud— tal ,i nd-tal) • I s 

910 FOR n»l TO l:IF t(n)*j>=s AND t(n>-j<-s THEN GOSUB 340:G0SUB 480 

930 IF n=l THEN RETURN ELSE INPUTM1 . 'Start, Slut nr 'ls,o:IF »< 1 OR o>l THEN 930 
940 FOR n=s TO olGOSUB 340:G0SUB 480: NEXT: RETURN 
950 ' Arsoversiat 

960 CLS: l-n:LOCATE l.l:PRINT CHR* ( 24 ) I STRING* (33 . 62) "ARSOVERSIGT "a* I STRING* ( 33, 
60HCHR*(24) :DIM i ( 12) , u 1 12 ) , r ( 1 2) : FOR n=l TO I: GOSUB 340:G0SUB 340: NEXT :n-l 
970 PRINT: PRINT "Mined "SPC 1 13) " Indt»gt"SPC 111) "Udg i ♦ t "SPC ( 13) "Rest "SPC ( 14) "Mined" 
:FOR «-l TO 12:L0CATE 1,*+5:PRINT m* ( m ): LOCATE 17.m*5:PRINT USING""""**!*", 

ftHMHMHM , . MM MMHMHHM , . MM ■ J i (m ), u (■! , r (m) : LOCATE 81 -LEN (■*(■)) ,»+3: PRINT m 

* < m ) " NEXT 

9B0 PRINT:PRINT*Ialt "a*": ";:PRINT USING" HMMMHMMH .. MM . Ntt 

MMMMMMMM,. »*t"|i(0), u ( 0) , i ( 0) -u ( 0) : LOCATE 73 , 20: PRINT " : a*" Ialf:GOSUB 600 

1000 MODE S 0:'=0:FOR m=t TO 12:s=MAX(ABS(r (m) ) ,s) : NEXT: g*=CHR* ( 128) +CHR*(129> 

1010 IF s<-80 THEN s»l : g*=CHR* ( 1 28) : GOTO 1070 

1020 IF s<«800 THEN s=lo: g*=CHR* ( 128) +CHR* (130) : GOTO 1070 

1030 IF s<»8000 THEN s=100:G0T0 1070 

1040 IF s<-80000 THEN s=1000: g*=g**CHR* (130) : GOTO 1070 
1050 IF s<»800000 THEN 5= 10000 : g*=g**CHR* ( 129) 
1060 IF s>B00000 THEN RETURN 

1070 PEN l: TAG: MOVE 0,34:PRINT g*;:MOVE 0,376:PRINT g*[:FOR m=40 TO 360 STEP 20: 

MOVE 80 , m : DRAWR 20.0.1: NEXT 

10B0 □-lo:FOR m=216 TO 366 STEP 20:M0VE -30.m:PRINT ot:MOVE -30 ,ABS ( m- 160 ): PRINT 
90-ot :o=o*10:NEXT:M0VE 0.396:PRINT-Kr"i :MOVE 0,14:PRINT"Kr"[ : MOVE 10,200:DRAW 6 
39, 200: MOVE 100, 10: DRAW 100,390 

1090 FOR o-l TO 12:q=(r(o)/s)*2:lF q<0 THEN FOR m=0 TO ABS(q):MOVE o*44*64, 200-m 
: 9 R NEXT 2 G6?6 7 illO UR 12,7 » 8:NEXT:F0R q=1 T0 7 - M0UE o»44+64+ (q#2) ,200*q:DRAWR 24,0 

llOO FOR »=0 TO q: MOVE d*44+64,200+m: DRAWR 24,0, 10: DRAWR 12,7,5: NEXT : FOR q-1 TO 

7:M0VE o#44 + 64+<q#2> ,200*m*q: DRAWR 24.0,6:NEXT . 

1110 NEXT:o=l:F0R m=112 TO 639 STEP 44:M0VE K.16,l:PRINT LEFT* in* ( o) , 1 i I : MOVE m, 
399:PRINT LEFT*(m*(o),l)i:o=o*l:NEXT:TAGOFF:ERASE i,u,r:SOUND 1 ,119: CALL l*BB18:R 
ETURN 

1120 RESUME NEXT 

1140 a=730rn=l°DIM w* ( a?, m* ( 12 ) . h« ( 29 ) , m% ( 1 2 ) . dX ( a) . k ( a) . t t a) : INK 0.1 : INK 1,24:1 
NK 2,20:INK 3.6:INK 4,26:INK 5,18: INK 6,19:INK 7,3:INK S.6:INK 9,7:INK 10,9:INK 
12,18:INK 14.1,24:SPEED INK 10,40:PAPER 0: BORDER 1 : MODE 6 , ,~ „ 

1130 PEN 12:L0CATE 7, 4 : PRINT "REGNSKAB" : LOCATE 1 0 , 8 : PRINT " A* " : PEN 3:L0CATE 1,13:P 
RINT CHR*(164)i:PEN 2:PRINT" Peder J. Pedersen" : PEN 4 : LOCATE 8 . 18: PRINT "Kar i se " 
1160 SYMBOL AFTER 256:MEM0RY HIMEM-547: FOR m=l TO 9 : READ o:POKE HlMEM*m. □: NEXT : q 
"J NT f ( H1MEM* 1 ) /2B6 ) : □■ ( H I MEM* 1 ) - (256*Q> I POKE HIMEM*5 , □ : POKE HI MEM + 4, q; CALL HI MEM 
*1 : DATA 33, 160.2. 17,0,0. 195,21 , 1B7 

1170 SYMBOL AFTER 9l : SYMBOL 91 . 126, 216, 216, 254 , 216 , 216, 222 : SYMBOL 92,118,200,214 

".24; 1981254 198, 198* SYMBOL 123.0.0.118.26.126,216 
102. 220: SYMBOL 125.48.0. 120, 12. 124.204 . 1 18 

.53, 153, 133, 153, 102.0: 
--KEY DEF 19,l,lZ3,9l:K 

1190 E KEY Z 6eF 64;i.49,33,129:KEY DEF 65,1,50, 34 ,1 30 : KEY DEF 57, 1, 51 , 33, 131 : KEY DE 
F 56,1,52,36. 132:KEY DE^ 49^1 , 33, 37, 133: KEY DEF 48, 1,54,38, 134: KEY DEF 41,1,55,3 

1200 KEY Y DEF 33°1 ! 57 , 4 1 , 1 37 : KEY DEF 32 , 1 , 48, 95, 128: KEY DEF 7, 1,46, 44 , 158: KEY DEF 





GOTO 20" +CHR* ( 13) : DELETE 1 140- : DATA JanuAr. 3L Februar, 26, Marte, 31 v Apr 1 1 » 30 . Ma j v 
1 , Juni , 30, Jul i , 31 v Augumt , 31 , September , 30 , Ok t ober ,31, November f 30, December ,31 



34 ■ TAST 



Amstrad 



Ams-fight 



Har du kl0e I aftrakkerfingeren? 
Har du agressive tendenser. som 
gi'rdig last til at udbombe byer og 
bare smadre IBs? Sa prcv dette 
spil pa din Amsie. I "Ams-fight" far 
du muligheden for at ka?mpe for 
fuld fart. 

Du er jagerpilot, og 1 dit kampfly 
far du tit opgave at ka?mpe mod 
fjendtligejagere. bombemasklner. 
UFO'er og andre spaendende ob- 
jekter. Rent 




100 
110 

120 
130 



60SUB 3050 
GQSUB 3460 

nl=0:n2=0: GOSUB 130: GOTO 170 
IF NOT SD(1> AND 2 THEN SOUND 
F nl=84 THEN nl=0: AFTER 200 GOSUB 
MO IF NOT 50(A) AND 2 THEN SOUND 
2=105 THEN n2=0: AFTER 200 GOSUB 1 
B GOSUB 130 



1,0) 



, 15,3tn 



1 ,tl tnl ,0,0) ,tl(nl, 
130 

4,tl <n2,0,l> ,tl <n2,l,l) ,5:n2=n 

;o 



l=nl+l: I 
2+1: IF n 



150 
160 

170 
180 
190 
200 



AFTER 
RETURN 



Oa DRAWR 



MODE I 

INK 1,0: INK 2, IB: INK 3, 6: PAPER 1 : BORDER 0:CLS 

PLOT 0, 196, 2: DRAWR 20, 80s DRAWR 60,0:DRAWR -20 , -80: DRAWR -10, 
10,40:DRAWR -40,0:DRAWR -10, -40: DRAWR -10,0:PL0T 22,246:DRAW 
R 40,0:DRAWR 5,20:DRAWR -40,0:DRAWR -5,-20 

210 PLOT SO, 196: DRAWR 20,80:DRAWR 60,0:DRAWR -20 , -80 : DRAWR -10,0:DRAWR 1 
8,70: DRAWR -15,0:DRAWR -7,-30:DRAWR -10,0:DRAWR 7,30:DRAWR 
-15,0: DRAWR -18, -70: DRAWR -10,0 



TAST - 35 



GAMES 



220 PUTT l40,i«nDfUwR 3tl0iDAAMA 3O,0iC*AH* 7,30iORAMR -53 t 0i DRAMA 10,4 
OttAMR aO.OiDRAMA -2,-foiDRAMR -»,OiDW*tR -9 , -201 DRAMA 90, 

330 PLOT 24O,l94»0AAHR 70 ( O0r DRAMA 40,Oi0AANfl -3,-IOiDAAmA -30 t O.DftA*fl - 
3O,0iDAAMR -3,-IO»DAAMR -30,0(DRAaP -IO,-*OiWWM 

340 PLOT 320,l**iDft«rt J.IOiDRAmR 35,0iDrwRMR 14,40iDAA#01 -25,0. DRAMA 2,1 

OiDRAMH afl.OifJAAMR -2,-l0iDF*AMA - 25, Oi DRAMA -|4| 40*i*A*» 23 

0:0ft ANA ~?,-LOiDR**fl -*0,0 

PL^T *dO,l96.D^**<R ?0,UG.WAMfl 40 t OiDRAMR -3 , - lOi MM -3O ( 0iDftAHR " 

1 4 , - 4C i DRAMA 40 ( O*DAAMR 7\30iDRAMfi -22,0*ORAMfl 3,1010**** IS 

.OlMMMR *U f "50iDBAMR -40,0 

3*0 PLOT 4aX>,l94ibAAMfi JO.OOiPAAMA 10,0<DAAMA -7,-30iDftAMft 40 4 0i»ANft 7, 
JO, DRAMA 10.01 OAMI -TO.-OOiDAA** MO.OiDRAHR lO,40iDAAMA -4 

run 305,19410* 

-lOiDARMft -Ti.OiOM -L3>-70iDftA-A -10,0 

TOO LOCATE l4»4iPCN 3|PRINT-JAH PEOCRSEH- i LOCATE 1*,4<P£N 3t PfllNT-PGEOtH 

T* 
390 



370 run 305,1 94 ioramr i3 ( ?0idaa*#< -23.0idrana j.ioidrpimr ao. a* -a 



.OCATE |7.14|PCM 3iF*|NT CMA*ll*41|- 1905" 



>2liFEN 3iRRitft-R #«r plat 



I ,0,U, If OOTO 300 
i33,0.0.1iOOTO 3700 



3O0 LOCATE 

310 IP t«lV 127**0 THfiH 
320 IP lNKEY<35>-0 ltd 
340 OOTO J 10 
350 D 

3*0 tCC V l30,*cal) LnbtMt-1) L*jti4ai*paad kwy 10 . 10**CHftf 1 1 31 

ISO SPEED KST 1,1 

IW 0 ( ?*i INK l,0i INK 3.231 INK 3,4iINK 4. Ill 
M INK 0.25tlNK 10.7IINK H.4flJ0C !2,3tI«C 13,1 

IMC 13.0 
INK 14,0 

y-i3i*-7 

' " 
liftyTflr-l 

r*R*t-0 
ic*0 

Myht-STAi ihi t0>> 

ityp«-0 

ry*Oi boa* a* j i UMDa*0 
*u#l-999 

ttvtWl 

UvOl U .«-CHRf 11*31 'OPIH44I 
I 1 I w#*l I vO*l L v**l 1 V» 



BP iMtTfWTtfM H iLO 



7,1 
400 
410 
470 
430 
440 
450 
4*0 
470 
4t0 
490 
500 
910 
530 
530 

340 

550 
340 

370 

300 'kcmtrol vinclwat 
990 * 
400 
4IO 



NK 5,101 INK 4,3i It* 



1 anil I i*LCP T • 1 1 and* , 
PARC* hWtO 0i CLB 



wiNUuM 01.1,30,71,35 
Pflrtrt •l,4iCLO 01 
A 70 LOCATE ti,i,3iPAP£A 91,4iPCM 41,9«FM1NTI1 
430 LOCATE 01 , 1 ,4 1 PraPCA 01,4iPCN 01 .AiPfttMTOl , *MtOH r - i n I Z* I h . jh i , y , * 
440 LOCATE 01.13,3tPAREA «1,4|PEM 41 ,T|PRIMTP1 l »PUELi999- 
430 LOCATE 01 , 1 3 ,4tPAP£A •l,4tPEN ■! ,3iRAINTl 1 .LETT* 11 1 v» , It 1 v»3i I 
4*0 LOCATE ■ 1 riPAP€JI liPCN 2»PfllMT DAIIU3HOMIIM1 
470 LOCATE 1 1 20» PAPCf* UPtN BiPttINT OTff tNO« <70,CHAf f 1 431 > 



400 I^AT 50 
4*0 * 

TOO 
710 
730 
730 
740 
750 



740 
770 
TOO 
790 
000 
ilO 
030 
E30 
B40 
050 
OAO 
070 
000 

■♦o 

90O 
9|0 
•-I 
•30 



itn loop 

INKEY 4*71-0 
JOT 101-1 ON 
IttCCY 4491-0 
JOVI01-? OA 

INKCYI271-0 
JCTI0I-4 DJI 

JOT <0I-O OA 
INKEVI7I1-0 



jorco> 

T>CN 
JOY (01- 



17 



030 

J0Y<0l-9 OR JOYC0)-3 THEN 0OSU9 1030 
1090 

OA JOVCO1-I0 OA J0Yt0>«4 THE** OCfiUB 1 090 



THE* DOM U90 
JOY<0»*7O OA JQVfOl-5 

THEN OOOUO 1210 
tfOY40>*10 OA J0Yl0»-9 

TMW 0QM 12TO 



Oft JOfiO>-i 7>*K 1210 



OA JOVtO»-34 THCM QQOUO 1100 



JOY40I >-|A TH£M 



127Q 

LOCATE I.IOtPAPEfl iiPtN Oi PAINT l«ntf|C| 
1 *nO C I «odl | 1 1 
] OfMOPftElflMTOJ * 1 0J0*0| 10)01 
1 and I O-LCr TO 1 1 wtOO , TO I 

IP uhyi*-0 AND vnyrnr-l HOW OOOUD 1440 
IP -O AMD uhvrnr-3 T>CN OOOUO 1730 

IP uwr-o PAEJ unyrnr-3 THEN OOOUO 1040 
IP wn T r-0 AMU briTTW*4 THEN 0OE4A1 I540 
IP i*V»l T>«N 0OOUB 1400 

IP i*iyrnr-l AMD At«>0*9 T>CH IP RND>0.73 AND vllg*>7 TICK r \ 
CLOE IP yl1 9 »<l4 THEM y I ■ i U* - 1 



.3 THEN 
VllO«*Tl 



AHI1>0.73 

►I 



AND yllOfl>7 THEN vU|t*ytt| 



*30 
94ft 



v - THEN 
950v DOE 



ah* 



'I 



/-WD AHD>0.3 THEM 



IF rfiTTfV-4 AND PM>0 
ELM JP fltg*<l* THE* 
IP i#tr*-nr-2 THEN y| 

IP y-^iyry THE** IP n-tAlyra OA ■•l^vhyr* Oft 
■ -|r*»rt-r»ftt*liuhyr^<»4ptyp>»-lJ 
Ui 3130 

950 IP THEM IP a-l-uhyr* THEM . - ♦ 

t^«^Miuhyt^i0Q9JUO 1950iOMUOJ 2130 

940 IP utivrnr-3 AND y-whyrr ^*E) ttoa4>v^> AND uhyr«>(**3> 

«oiCh- iuhyr«- 3 J i b—bay^rfiyrytO— 0>«*1 
970 IP ta«bv-t AND uhyrftr-3 THEN OOBUO 7790 

900 IF ybiib my THEN IP Ooaftw** OA bo«4N-«0 T«M bvbi- -Oi 1 
kftri-aivimy^yiBhat* 41 w t 4w0«*0> ■fcwtyp«*l tCOOJUO lT50iOOtUO 

3130 

990 IP uHyrtv-3 THEN IP uhyra-u THEN akaaa-O 
lOOQ IP HiPlU nCN OOOUO 1370 
1010 OOTO T30 
1030 * 
1010 " m 
1090 ' 
1050 IP y<3 
10*0 LOCATE 
NJ|Plt*8l|CHA«U*4 
1070 BE TURN 
IO0O 1 
1090 nma 
IIO0 1 

1110 IP y>>7 THEN 



THEM HtTurtM 
a.ytPAPEA li 



P91INT* - ( y*yt*tOCATfi .,yiP9VCA IiPCn 7. PAINT C 



tOQSUO LT30! 



313 



a,y>PAP«t 
M44I 



(PMIMT- 



GlAtTUAN 
II 3D LOCATE 
HA» 1 1 a>3 1 1 
1 1 30 RETURS 
11*0 * 
1150 * hOJr> 



UTO IP rM3 THEN RETUAf* 

MOO LOCATE ■tViPAKTt DPftlNT* 

HA*ll*3MCHA«(|*4l 



ly-yMtLOCATE a.ytW^EA liPEM 3i PAINT C 



»i.-a»1tL0CATC a.yifWER It PEN JipfllNT C 



1190 

I30O 

1210 

1730 

1330 

1340 

HA»U 

1350 

1740 

1770 

1»0 

1390 

1300 

1310 

1330 

I330 

1340 

; r t * 



1 vanitra 

IP a<3 THEN RETURN 
LOCATE «,yvPAPEA l< 

*3» |CHA« 11*41 
R£TL*lN 



PA INT - 



k I «*h - 1 1 LOCATE B| yiFtVC« 1 1 PEN 3»PAlNT C 



3 1 PA I NT LEPT*<a.«l*,a*uU)J 



PMM»q"OA > UPP 
•■uda"U*2>iOlii«ify-y 
LOCATE *ku4ii,ftltudriPAPE71 I* 
SOUND 130,10.-1,13,1,3 

LOCATE «ku0a.«4w|yiPAPEA 1 1 PEN 1 1 PAINT APACE* < l * l- 1 1 1 
IF uhypOO AND iihyrftr<>3 THEM IP y-uhyry THEN •a»a-i*Tiyrai 
A ift4vlyB>v-7iOQDUO 1950I0OSUB 3310* i*r»yr-Oi r a*t-r 



•fc«y-trfiyry 



■ ■ ■ y-9 o**t>ry i ■» aa 



1350 IP uhvr<>0 AND Ooa9>««-1 THEM IP bo*4T>y»tuOy THEM 
□abfH v a>h«A— * * i a>fc «l yp«r-3i ODOU0 1 90O i baacwO i bevabva -Oi 
-OiftaTTUAN 

1340 IP uhyrnr-7 AMD uftyrOO AND buaMyOy THEM IP y«kAyry THEN ■4«a B Wh 
r ■ .hi^', — '.j*'i r yitfk it*' *i«4mlyp«-3ieOAU0 1950iOOOU» 23lOit*>y 

r "0» r**i.-r«Bt*l 

I370 IP trfiyrcr- 4 AND y-ttftyry THEN OOOUO l»40i raatt-21 1 IP l*v*l<37 THEN i* 
vatl-l*val*lilMK IJml 

1380 forruftN 

1390 * 
1400 Afr 
14IO * 

1470 IP uhyra<3 THEM IF u^yrnr«3 AMD «**v-0 THEN LOCATE uftypa t unyppiPAPE 
A 1 1 PAINT- -irtr^tKTURM 

1430 IP uhyra<3 AND uhTTW-4 THEN LOCATE uhyr< ,trfiyryiF9l |MT' *tuhyrnr*li 
uhyP-0»r*4rt-Oi IF J9V9K77 THEM I «vbl*l«v9l * 1 1 INK f,I***liAET 
URN ELSE MET URN 

1440 IF uhyra<3 AND uhvrh^<>3 THEN LOCATE uhyra .utiyryiPAPCA liPftlHT" *| 
uhyP»0tA£TUPlN 

1450 IF r**t>?0 THEM IF tA^yrnr-2 AND Dt*«U»-l THEN LOCATE iOOMA ,b«*>»Ti 
PAINT- 

1440 IP ra*t>30 THEN IP ^iyTnr<4 THEM ujFi r +-i\r rrt\r • L ( **x\,r-0 i r Mt -0 i PTT 
UANt ELOE i#iyrnr-lii**>yP-0<raatt^)iMCTi*i*N 
1470 LOCATE *ihyra , rfiyr y I PAPEA 1 • PAINT* * 
14BO IF ^y'rllfl* THEN uhyry-uhyrytt 
1490 IP uftyry^yllfa THEM uHyry-uhyry— I 
I500 IF uh^rtT< >3 THEN uhyr a-^lypa-t 
1510 IP 4rfiyrnr-3 AND ataa'l THEN uhyra -ta^yPa*! 
1530 IF uhtyr*v-3 AND *aaa-0 THEN unyra-uhyra-1 
IS30 LOCATE uAy^a,tahypyiPAPEA upcn 9»PA|NT uhyrO 
1540 RETURN 
159D * 
1940 
1570 
1500 
1390 
1400 
I4I0 
I4TO 
1410 
1440 
1450 
1 

IA70 
1400 
1490 

1700 INK 9, IKK (ANDM)>-I3) 
|7|0 whyr«-lO>VNy^y— INT l*saD*l*l *I 

1T3D 

i no 

1740 
1750 
1740 
1770 
1700 
I790 

IDOO w>iTP«-lO«uh T ry*tNTlflND*l*J*l 
1010 
1070 
U 
1040 
1050 
1040 
107O 



tualla^k 



wnyr* 
wHyp- 

1MK 9.tNT(4AMD* 

arceo tract I0 t 

utvypa-19 
yllQa-lNTll 



MOOKCHAf <101I 

31*131 ,0 
M aval* 10* 

lNTlftW*l*l*l 
•3**11 



4441 'uhyr* 1 



uhyr*-CHA4f 1*71* 
whyr-1 

t*OC 9,lNTi<AND*l31 
uhyr«-|9iuhyj-y*INT (P 
r 1 1 BMP* 1 NT M AN!>«3I *7l 
AC FUlav 



'i^iyra 7 

^yr«-CHR*ll49l*CHRf 1 170J 
uhyp-1 

INK 9,1MTmAHD*I31 
uhyr*i*l9t uh T ry*tNT 

»uo*-y 

RETURN 



131 



1900 
1910 
l*TO 
1930 
|94D 
I93Q 
1140 
1970 
19O0 
1990 
300O 
301U 
3030 
3030 

3O40 

3U50 
3D40 
207O 



3090 
2100 
7110 
2170 
3130 
21*0 
3150 

rt*o 

2170 
3IR0 
3l9fi 
- * '* 1 
33IO 

7230 
7340 
3-J50 
-740 



" whyro 3 

i*h T r f-CHA* ( 1 7 I ) *CNR» 1 1 Till 

uTiyr-l 

IMC 9,IMTI tAMD*l31*llt 
urtyf-a-li^yry-lMT<AN0*lS)*2 
yl i ya*\jhy ' y 
aa-lMT<AN0*13f3 
aaa»l 
P«TURH 

* ahaalealon 

CALL 40CA7 
LOCATE vltaa ,«AayiPAPER ) r PAINT a4a0 
LOCATE aaaa,«*ayiRAPCR liPEN lOi PAINT 
IF ak«typa-l T>» DOUNO 135,100,^1,19,1 
IF a44typ**3 ti*n OCXMD 1,40,-1,10,1,3 
LOCATE t.ip,inyif'WH 1 1 PAINT" * 
LOCATE akaa v ak«yiPAPW liPEN 1 1 1 PA INT 
IP N4atyRa-3 THEN ROUND 7,10,-1,13.1,3 
LOCATE afca- .aktyiPAPEA liPAlNT* * 
LOCATE aa*p,avayiP4PEA I* PCM 1 3 1 PRINT 

IP ti.iyp.*: THEN ROUND 4 ,RO,-l t 15, 1 ,3 
LOCATE a*u B *Hay»P*FEA liPRIMT* * 
»aajtyp#*0 
RETURN 



.0.31 



ri03J+O9Tf 11041 



11047 



11 v« 



IF llv-O THEN CALL 40CA7i OOTO 3*00 
LOCATE 01 i 13,4iRAPER 01 ,4iPRINT*| 

LOCATE 01 .t3.4iRAPCR Ol,4tPEM ■ t . 7i PA1NT4 1 ,L£PTt U I yp , 11 1 *»2H 
LOCATC 3,l2iT>ARER liPEN 3iPRlNT CHAP t l*31*CHRf 1 1441 1 *-2i y-12 

RETUHP* 



ac -*c • I O 
acf-3TftoHa«l 

icl«-i£li PUA f*0 10 l*-LENiael4l+Mi»e*-a*0** 'tHElT 
LOCATE 01 ( 7,2iPAPER 0l,4(PtN •l.SiPRIWT 01 ,t1tD0 tac* ,7,41 



36 - TAST 



7370 
27G0 

3300 
2310 
TITO 

7330 
2340 
733Q 
33*0 
13^0 



RETURN 



locate MiMiiyiPMR UFtunr ■ 

IF bMHt.T THEN boa**— Oi uo^*"-0ib<*^*y-0t«CIWl» 
LCCRIE |*-4>aa.bi*.*r¥iFAFER IiFOi 13|FR1NT Mil 1071 



rual-0 

J90 IF uhyr-1 THEN LOCATE ,thvrB ,uftT>ryi FAINT- • 
}«O0 IF THEN IF b«*— i THEN LOCATE »*-^. ,4i»*y i FAINT- 

14 lO Mnyr»Ot»P*4 ■ "O 

FOR 4 *y TO 17 

343a LOCATE .,*|F» liMPfR HWNT Cl«*li*3>|CXil*llM> 
74*0 LOCATE k.fiFAIIfT* ■ 
2490 ■■ ' * 

24*0 - *i afcjy*#i»fca"^i8OBu0 193*7 

24TO 00M 3120 

7480 ruai-999 

3490 AETUHN 

MOO ' 
3310 " 
3330 * 

7U0 IF li*<l THEN RETURN 
73*"* fu»l-tt**l I 

3970 LOCATE 9|,ie,2iFvwHJft il,4iFCN •! .7,F4l!NTt I ,mOl I lu#l *.2,3) 
3360 RETURN 

2390 1 

Jl^ i^r^n!!-3aO t y-J70<Faw l-l tO Bl.eOU-O l,l^*a3.l,7.it9JND 2,f,l,7 
, W .,y,IIRA*R l,0.2tORAj94 O.ryCUANfl -l.OlDFl*-* 0 ( -h.---4. 

M^^Tc'-lTlliFCM 9,t«ED IN* *°' 40 ' M ^*;T™' fi ^i^ t ?\ i 1,.. 
3*30 FOR R-31 TO 0 9TEP -ItlM 4.* HOD MiFM *-0 TO giOOUND l,*.l,7(i0U 

NO *,#«q.l,7,0,OtNffTi*om 

3440 M OlCUlMC 3,4.2iIhK 13.7,4 

2450 n#ia*O»F0R 4-0 TO 4# IF ie<niHI ThWH HEKTt nh—1 iflOTO 2490 
2fr*0 IF f-O THEM 4-1 ELDE 

24>70 FOB 8 -4 TO * BTEF> »1 illl IQ> -hi IgMI thi i |Q>-M * <Q-l> 9 
3*00 hi <# I hi • '* 

3A90 FEN 4 1 LOCATE 3.2i FAINT-NI DA OMRE" MtMT . - > 

7*00 FOR g-0 TO 4t LOCATE J ,g-4.rEN BiFtUNT g* 1 1 LOCATE 3,g44.F*INT*i - M l" 
01 AiWUNT hlfCgliLDTATE l4.g»4iFE* 3«P*IHT hi <gl*NEiT 

3710 MOVE I7.3*3.DRA4* * 13 .0.3.t*lAN* O.-lW.DA*** 0.130.I4JV 
F_ ■, 1 ". l! !.wf. *O7.O,l3i0RRMR O.M24iDRA*#T -407 , Oi DfWNH 0,12 

2720 IF hh* THE* FOR *->! TO OtLOCATE l.liMlINT MW CM > • »*EIT <«A-1 II 1-0. 1 

t F*INT-FOR*T RKRjvc mrvn* 

Tffto FEN 14»LDCATE 3.13IFRINT-A ■ C 0 f F • H" > LOCATE 3,)^!^ 
nMO RELOCATE 3,I9|FRINT0 R 0 T U V M K-iLOCATI 3.2HFRI 

HT-V I . , * •CMA* 11 » D4»* tm* * «0MI4II>CHR«<13> 

27*0 LOCATE 3 ( 24tF*M»rt CMPW i I >04*t Il3> M PW >3iFfllNT*«€NTtA "| t*€M 14iFfl 

INT MWIUCMAtlOliiFOl l3*FHIHT— KUt'l 
2770 FDA g-J TO JOi fcflhWYti m%l 

CTSO L0CAT1 4 B 4«4ilr4< ll^.KFfM lliFfllfclT h|*<Oihl**l 

SS Ft^'-tT'WA** 5*,0 , 1 1 DAP44H O.-2II0AAHI -Sb.OiWAA O.W 
2tl0 1 L-0» t7'0 ( «ri-I :EVEAT 10 QOSUD 3000 

3fl*C H2S*£ t- /iDRAIA 3A.0 t 0iD AA fc4* 0 t -2Hi MMM -34.0iOA***A 

■^0 ,V - j-l^ A« !-3l A** n*.<>- TMC W n-F-L*FT. ( «. ( LCNi n . 

4 1 •! M LOCATE 4,|*4(F«tNT n*t| WHILE fc*** * OA JOOf Hi-lit* 
r ft t ^J0T<0kiUCM0 

^ftfrO IF - OA J-1AI AMO TMCW 7*|0 

SiS IF |4W>- OA lie THEN -«**4 ( 1-1-1 . IF -«*0 TMEH „*40, W J2,1F y 
^O 1 ^;-^^^ ^^1-I-lHF THEN .-4t.:y-r02MF 

( WIhT o^.MHlLE K4-- ■ OA j<>0l>4*llt<EVi.W0y^''»*Nl>*<P *^ 

2^Hoi2 -^oSiS 54.0a.DAA4* 0,-a,OAAHB ^^.IftW 0,».«TO 2020 

Ttto MirtooH i,2o^o v aa«cuitfUAm i.jo.i.MiFOA g-i to 2o.M*-i«orrf # ncxt 

O litOCATC l t It FAINT CMR4*I1UNE^T 

j^, ri-nTr I.23IFAKH IliAEA fl FAINT *HWJj 
T^fcO IF I*fcOiy4<>' * ANO J0Y(0lt>l* THEN 1^*0 
2fl7Q r»-A€HAlN<OMflajN0 il3 4 O t 0OT0 120 
24*0 * 
3**>0 1 

VjOO IF IT"** THtM AflM 

1010 IF NOT 90 M i ANU 2 THEN SOUND 1 ,9 III I ,O # 0l »p I til % 1 % Ot t iS.tni i l-t 1 * 
3030 JF NOT S0I4> AND 2 THEN WUND 4 .pHW.O, U .P U «t 1 1 1 » t I5,t»tt3>«* I 
ilF ir-'> THEN tl»0it2-0i»n-l 
3O10 AETUAN 

loaS FdOE HINA l.4.l7tSFEEI> INK lS t l»tLlXATE 13.12*FEN |,FAtNT-£T OJEAL 



1 ? 1 r*n I NT * 



JUL 



2A*0 01N tl 1100,^,3) t «Bl4l .hi l4>»AlOt41«ACE10AE 3330i er-*0* n#i I0> ■ 
^MlW^ra - lH U4ll.-FOO^WMMl.C2l--AANOLO-t 
Mlii3!-^Xl*4»-.Hr4Ul-*AWVIlT-*F0A FH> TO 4» MlfFl-tO-Al -lOOi NElT 

3070 FOA N*0 TO t 

30BO FOR l-O 10 iwtlnliRGAD 1 1 (# ,0»n* .tfur* 1 

30TO IF ihjri»"H* THEw 

31O0 IF BH*ri-*t* THEN dur-cF 

31 IO IF ifurt-Mf TI4ZN *H*f-«r»cr/» 

3I30 IF Aur—*»' T**EN tfur-cr*l 

JI30 IF eVtr*--** THEN »1ur-cr"4 

3140 tl (#* Knl-dur 

3130 NE3T I NEIT 

Tito DIN ptt34iltM 

3170 FOR 1-0 TO 33f READ pi <*.0,0I ,Aur* 

3IOO IF Our— T14EN tfur-20 

Jl^U IF fltjrf»*e- THEN dur»4*V 

32CtO IF d**F»*At* T*4W Omt-*0 

3510 IF aur4*"4 # THEN Our-00 

3220 IF dur*— 0#>* TiCN rtur-140 

3330 ptU.UOl-^liarilCiT 



tittnM 



t ll .Hurt 



3740 FOR t-0 TO 33iACA0 »Mt.O, 
3230 IF durf* "q* THEN *W20 
33*0 IF dur«--e* THEN M-40 
3270 IF 4VT— *0c* THEN cltir>*0 
3300 If d**r#- *•* THEN dur*O0 
3W IF dur— THEN dur-140 
3300 ol If ,1,11-duriNElT 
3310 RETURN 
J320 

3330 DATA 2A4, •,3l* t q,330, 3*4 ,q .319. H, 

AA,C f 3».e f 3l» ( d 1 2*4 i « 1 Jl B y,q.33l l d;.284.Q,3lt.q,300|C. 
>3,a^7^.dc,«».C 1 »4 i q l 3341,n.3l9,c.3l* (Et 3M.* 
3340 DATA 2«4 (Bl 3i« l q.3M,Q t W i q«3l*.q,™,e,i^ 

I3 t q, 17*. dc ,237 .0,704 ^,330,0. 319 ,C V 311 
3330 DATA 190,00,179, . 
333.6,213,0.339^.20* p - 



l79,e.213.q,l79,dc.239 l o,2 

,l79,c,2 

A 

t 3S0,C, 

|,3l9,q,300|C»lT9,c,2 
,c,330,* 

"139, c,33a,c ,33^,06,213^.239.0,179,6,179,0*213,6, 
i.3l9,«,3S« t q.204.q ( 3l9 ( q,3M,c t 179, C, 
.33A»q t 3l9.e,3i9,e ,33" 



3340 DATA 71*, 



l 379,c I 330 t c,3*0,c,33* ( i»,*7*,rt<,7i* 



, 4 Tfl . £ t S40 ,6,4 



,319.q. 300,6,478,6,0 
^TO^q.OoO.q.OlA.etSl*^, 

a .471 



>4 ( r,4 



,334,6.334,6,3*0, 



7*.q ( 93*.4,470iq.479 a *t»9 t q,?33,Q,7&*, 
3*.q t 340,a f 34«,6,040,c ,424.6.304,«,47R. 
|4,o.3*O,q,47B,q,330,q,3*a,q 1 47t,a,3M,n 

3370 DATR 7l*,« t 4TO,c .379 ,e ,J3« .c .340, c .33* ,u, *24 . dc .71 *, 
7O.».33*.d ( 47A»9,379.ii,2^*,q.233,« I TA4,tl.Jl9,q,330,6,*70, 
34 .q .3*0, d.34B, 6. 340. c ,424.0 «304.« ,470,6. 470 .q,340» 
l* f Q*340 f q,47a«q,35e.q.040.q.47«,q.3a«,4 

3300 DATA 319. dc,3l9 ,q,3l9 ,c ,379,* ,3M ■ dc , 330 ,q . 33»,c .338 , c ,330 ,C , 330 ,e , 
42* l c.300,E»379,*,3M,*,47«.c.434>,q,34a,q«340,e,3*O l c,424,6 k 
304. 11,470.6.470.9, 3*0, ct,33*. 6, 334. 6, 340»O 
3390 ' 

3400 DATA 3l9.q. 2»4.q .233, dc ( 239. «. 229. 6 ,213,4 .213.it, 233 .6 .21 3.6 b 739,06 . 
231 . q . 239 , c . 204 , e , 293 , dM 

3410 DATA 3l9,q, 20>4, q,2S3, 06, 239.q, 239. c. 713,6.213, », 233. c, 213, c, 739, 6, 3 
33, q, 7 * ' . , 30>4 ,e, 3 19.0* 

3420 DATA 213, C. 159. 06,14?, 6, 1»0,E. 213. 6*213, 41.303. c ,713, 6.71^, dc, 333. q, 
73V.c.3O4.c.233,d4>,2l3.C.l39,0C,149,6.l90,6,3l3,E.3l3.*> l 233. 
c,2l3,c,n9 t Ot ,233,q,739»c.3*4,6.3l4,A* 

3430 OATA 304,4 , 474 ,q .319,dc, 24>4 , q , 204. c . 233 ,e ,233 ( n,3l? .6 ,233 ,6 ,204 ,d* f 
3l9,q.204.c,330.c,3l».q* 

3440 DATA 50*. q» 42*, q.3l4>,dc. 2»4. q. 204. 6.333, e, 753 ,*,31 V.c . 233,6. 204, dc, 
3l4.q.2JJ4 l d t 424,Q.470.q,30«.ddi 

3430 DATA 233, 6, 733, 06, 213. c.23Y, 6. 253, r, 733. #,310. 6, 333. c. 304,c,319.ii, 2 

O4.e,33O.e.3l9 i d^,333.c,333.dq.3|3,c l 393.e,33J.6,203,«,3l9,d 

.233.6,704.i1c f 3lf ,q,704,6,414.q.479,4j.30*,d«i 

34*0 * or«#1* 

3470 OVraQL «4FTEA t* 

14UO ttVMOOL 9*, 0.0,110.304, 314, 102, 720 



133.40 .0.120.12,124.204 .110 
,340.44.47.40.44.233 
1,340,0,7,170,170.0 



3490 Bvnn 

3300 3YHO0L 1 43 , 3 1 , 

331 0 BYTfAOL 144,0.1 

3330 OTHOOL 147 ,0.0.0.0. 13.43.0, 1 1 ■VFAWU 1*0.0 .43 .40. 109. 1*7, 14*. i 3* , 340 

3330 EYHOOL 149,0,0,0. 13 ,43,Q, 0,OiOV T OWL 170,0,31 , 124 , 100, 2M, 134 1 42, 31 

3340 0TH4KX 1 71 , 13.31 ,34,290.43,0 .42.21 1 1 
,140,00 

3350 SYNBOL 173,3.7,73,31 



173,340,340,230. 



,39,191 , 137, 333t frrHOCL 
221,394,2334 fXYRDOL 179,0,0,0,24.124,174,732,390 
3340 OYHOOL 174,4.4,34,733,109,44,1*3,44 
3370 STT40QL 177 , 174 , 193 , 233, 134, 90, 10. 40. 90 
330O SYNBOL 170, 0,7,7,10, 10,47,170. 2S3i3VNiOL 179.120 
9,1*9,230 » 

3390 EYT4B0L 100,31,40.47,130. 
17.240 

3400 BYHOOL 103,20,44.4 



74. 139,724.740, 240, 3^4 H 



irO. ,*0, 140,140, 



,31,44,30,31 



101 ,749,13. 194. 



40,3.14*»?.4O.EYH9OL \ 03 ,3. 1*. 40, 1 7 , 
40, 134,33, fltCTNOOL 1 03 , 3 . 29 . 33 ,*0.44.3 
112,34,192 



,34,9.1 1 



MbOPJj 104,14,40,1*,! 

1.70, 3i 104. 192,3*. 137,44,44. 

34IO ftYHBOL 107,0,0,0,37,249.32.0,0 
3470 1 nana 

3430 RESTORE! 3A40i FOR 4-1 TO IDO1REAO ntlflnd— 



.*mJ**CHA4 U>f MEIT f 



173,173,174.37.170.179.179.179.3?. T 7* .37, 240,249, 37, 174. 32 

173.174,33,40,77,03.40,70.73,71 ,73.04.33.179,173.17 
.37,177,33, 1*7. 1*0.33.1*9,170,33.171,172.32, 177.32.173,174, 



173, 



171, 174, 170, 179,37, 339. 339, 239, 37, 173,173 
,13,-1 ,20il34V ?,l9.l,li€HT 1 , 13,-10. 1 1 ENT -2,1, 
.litnv 3,l3.-1.0iENV 4.1 ,-13,1,13,1.1 ,4,-1 ,2 



LiENT -3,10, 



tMT* 94>19CF1^ 
■ ■ ■ LOEMTE I, 
T- UFO'«r*ai 
3790 LOCATE 1, 
3tFR|HT"a*»l 



«4- 1 LOCATE 
(LOCATE 



|4,Pft 



3440 DATA 32,173,174.173,174.173,174.173,32,173.37,173,173.173,173,174,3 

2.32.37.32, 144 1 33, 74. 44, 00, 32. 40. 43. 04, 43, 37, 37, 49,37, 34, 33, 

37. 37, 173,174,173,174,173.173,173.37.143,144.37,143,144,33.143,144,32.17 

3 

3*30 OATA 174.33,173,174,32,170,175, 170. 179. 173, 174, 32, 1*7, 140, 12, 174. 37 
,I7*,37. 174. 37, 149. 170. », 147, 140. 32. 149, 170, 32. 177, 32, 177,1 
3,173,174,179,173.173.174.173,175,32.171,177,33,171 , 173,37.339.339.2)9,3 
3.171.174.179 
34*0 DATA 173, 
,175.175, 
4,173.174 
170,179 
3470 DATA 173, 
34S0 ENV 
5, 1 , lO,*3, 
3*9(1 ACTIJ9N 
3700 ' iniLTutmcwi 

3710 OLSiNODE I 1 1*4* P,74i INK I ,0|FAPf A OipQROCR 34|FCN 1 
3720 LOCATE I4 r 2iPAjNT-rVl6-Fiain* 

3730 LOCATE I.4IFAINT* 0%i mr I«q«r mt RUN 0*10 *» *k*I 

3740 LOCATE I ,4i FAINT-far ■ ' tjd «t r*dd« JOAOEN fr* #J«tM]*^. 
3790 LOCATE 1 .Oi FAIKT'F' r did tn^rh* b ig* I»*»t4r *4 
INT* JAOEAFLV «W *oid>r l^t fr* h*]t+ m 
3740 LOCATE 1 , 13iFAlNT*RnO«n ■n C r.ti* b ig* dnt*r «J 
m* oq»4 fca m r Ind *r* h"jr#" 

l4>ARlMT* t Tr'vdtk ahqrvtid O'lq* lwt«r m* "iLOCATE l.lOiFRlM 
boHtf |nd fr* <r«na4f*d* a 
,20iFAlNT* Tl)«ld»l 4— — r d*r .- F\JELTA>JK aav *t LOCATE 1.2 
l*Td— 'or at '4 bam In d4. B 
3790 LOCATE ll.TOi FA|*ff 'TRW EN TAqT^■' , 
3000 CALL 40RIO|CRLL *D0)O 
301U ci, 0 1 LOCATE lA.3tF*!NT*AFf9~FrOHT' a 
3070 LOCATE l.4»FAtNT*Du atyrar wJi" 
3030 LOCATE 1 3 .4i FRINT'JOVET |E P 
3040 LOCATE H.OiFRlNT'dUar* 
3030 LOCATE 13. 10* FRINT"0 
3040 LOCATE 13,12iFft1HT-A 
3970 LOCATE 13. I4jPRlNT*F 
3R60 LOCATE I3.14IPA1NT-0 
3090 LOCATE 1 3, IRiPRlNT'Z 
3910 LOCATE l.TSpFAJNT* 
3*30 CALL 49010iCALL *00\u 
3930 OO TO 170 
39*0 ' ' ..1 ; op 
-V'VJ CALL 40CA7 
39*0 FOR 4^1 TO IOOi ROUND 
3970 44«l*fu«l*l 
390O fwal— OTROMuall 

3900 IF fual-9 OR 4k>«l-99 THEh LOCRTC 91, 
ti* • 

4000 LOCATE 41. 
4010 NEXT 
4070 401 TURN 
4040 END 



4or 
4 or 

4 or 

for 

TRY* EM TA3TE FTJR START" 



OF- 

MCO- 
**0 J RE" 

womor 



,*o, 



.13, 



10,7, FRW 41.4|FVN Ot.TirRlNT* 



19,3iFAFEA dI,4iFEN 91 , 7i FR1NT91 -Nl D* ( luol 4 ,2 , 31 
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iCHRLLENGEi 



Commodore 64 

Tegngenerator 




Nu Kan du lave dine hell egne tegn, f.eks. lave bogstaverne om til 
figurer. Det erendda meget nemt. menustyretog pS danskl Sel- 
ve menuen star altid ude til hejre. s5 vt ska! blot fortaelie lidt om 
de forskellige modes: 

Fl bruges til at angive. at et tryk pajoystickens fire -knap vil seet- 
te et punkt. 

F3 bruges til at angive. at du vil slette et punkt med tryk pajoy- 
stickets knap. 

F5 bruges til de forskellige funktioner. F5 hopper til dlsse og s5 

bruges Fl og F3 til at ga op og ned i menuen. 

F7 bruges I tegnemode. nar man vil have andre farver. Tryk igen. 

nar disse er aendret 

En kort oversigt over menuen: 

PR0V: Se et nydefineret tegn. brug joystick til at flytte cursor 

med (fire flytter bogstaver til den store ramme). 

HENT: Hent et tegn fra hukommelsen over i tegnrammen. 

DATA: Udskriver data til tegnet i rammen. 

RVS: Vender tegnerammen - sat til slukket og slukket til sat. 

CLFt: Man kan slette entenlilletegnegeneratorellerstorfirkant- 

joystick op slette tegnefirkant og ned sletter den store firkant 

fomeden. 

SAVE: Lasg tegnet fra tegnerammen ned i hukommelsen. 
FYLD: Fylder tegnerammen. modsat CLR. 
SLUT: Sletter programmet og laver et nyt der opretter det nye 
tegnsast. der si kan saves pa normal vis. Det tager omkring to 
minutter at lave dette program. 

N5r det senere loades, vil det tage 20 sekunder, far du har dit 
eget tegnsaet. 

Claus J0rgensen 



rem ****************************** 
****** 

REM * 

* 

REM * OflTftGENERftTOR 3.0 CLflUS 

M.J. * 
REM * 



5 REM ****************************** 
*»***« 

10 SK = 1 066 :KS = 1256: IK- 1864 :F I *0 : R= 126 
:K0= 1506 :PE =56320 :KV= 12288 
:TT*= U <CRSR NE07>" 

11 FU = 1 1 16: GOSUB 135 

12 POKE 53280, OiPOKE 53281,0 

! POKE 646,3:PRINT CHR« 147) 

13 RR=9:P1"1025:G05UB 20 : RR-8 i P 1 » 1065 
t P2= 1 074 : GOSUB 2 1 : P I = 1385 :GOSUB 20 

14 RR=16:P1=1276:G0SUB 20IRR-1 

:P1 = 1316:P2=1332:G0SUB 21 :RR= 16 
:PI=1396:G0SUB 20 

15 RR=27:Pi=1465:G0SUB 20IRR-7 
:PI«1505:P2-1532:G0SUB 2URR-26 
:P1=I786:G0SUB 20 

16 FOR 1=0 TO 9:FOR T-0 TO 3:REA0 D 
:POKE 1098+T* 1*80,0* 128: NEXT: NEXT 

17 FOR T=0 TO 127:P0KE 1B64*T,T:NEXT 
!FOR 1=0 TO l:FOR T-0 TO 7IREA0 0 
iPOKE FU*T,0+128:NEXT 

18 FU=1 196:NEXT:F0R T-0 TO 16 : READ O 
'.POKE 1036*T, 128*0tNEXT 



38 TAST 



CHALLENGE 



19 FOR T*0 TO 7 : READ D 

t POKE I2288+1336+T,0:NEXTiG0T0 22 
£0 FOR T«0 TO RR l POKE P 1 *T , 1 60 1 NEXT 

I RETURN 

£1 FOR T=0 TO RRiPOKEC P1*T«40) , 1G0 

:POKE( P£+T*40) , 160 I NEXT I RETURN 
££ POKE KS,3£:P0KE 1036,170 

:POKE l£56,32:FIs>0iSK"1066i Y«O!X-0 
£3 SPspEEKC SK) IPOKE SK,167 

IFOR T-0 TO £0:NEXTlPOKE SK,SP 

iW=PEEK< 197 > : JV=PEEKC PE> 
£4 IF W»3 THEN POKE 1176,32 

IPOKE 1096,3£:G0SUB 134:G0TO 151 
£5 IF JV-111 AND FI=0 THEN POKE SK , 

160 

£G IF JV-U1 AND FI = 1 THEN POKE SK,3£ 
£7 IF JV=1£G THEN QQ--401Y-Y-1 
:GOTO 35 

£8 IF JV=118 THEN QQ- 1 :X-X + 1 : GOTO 35 
£3 IF JV-1E5 THEN QQ =40 I Y=Y+ 1 : GOTO 35 

30 IF JV»1£3 THEN 0Q=- 1 ! X=X- 1 : GOTO 35 

31 IF W-4 THEN POKE 1096,170 
:POKE U76,32:P0KE l£56,3£iFI=0 

3£ IF Ul=5 THEN POKE 1176,170 

:POKE 1096,3£:P0KE I£56,3£:FI=1 

33 IF U-6 THEN POKE 1176,3£ 

i POKE 1096,3£iG0SUB 134:G0T0 40 

34 GOTO £3 

35 IF Y< 1 THEN Y-UGOTO £3 

36 IF Y>8 THEN Y=8:GOT0 £3 

37 IF X< 1 THEN X-UGOTO £3 

38 IF X>8 THEN X=8:G0T0 83 

39 3K=SK*QQ:G0T0 £3 

40 JV=PEEK( PE):U=PEEK< 187) 

I POKE KS, 130: FOR T-0 TO 40: NEXT 

41 IF JV-12G THEN WLJ = -80 t YY*YY- I 
:G0T0 46 

4£ IF JV-125 THEN Hd=80 : YY-YY+1 
:G0T0 46 

43 IF JV-111 THEN ON YY* 1 GOTO 36,49, 
87, 76, 8£, 71 ,82, 1 16 

44 IF W=6 THEN POKE KS,3£ 

:POKE 1096, 1 70 : F I =0 : G0SU8 134 
:G0TO ££ 

45 GOTO 40 

46 IF YY<0 THEN YY-0:GOTO 40 

47 IF YY>7 THEN YY-7:G0T0 40 
43 POKE KS,32iKS-KS+WUiGOT0 40 

49 JU-OHF JV--111 THEN GOSUB 134 

50 IK=1864:XU=0: YU=0 

51 JV=PEEK< 563£0> :OP=PEEK< IK) 
IPOKE IK,167:F0R T=0 TO 40INEXT 
:POKE IK, OP 

52 IF JV-111 THEN 148 

53 IF JV=126 THEN 0U--40: YU-YU-1 
:GOTO 58 

54 IF JV=125 THEN QU=40 : YU=YU+1 
:GOTO 58 

55 IF JVM19 THEN QU-1 :XU-XU+1 



:GOT0 58 

56 IF JV=123 THEN QU- - 1 : XU-XU- 1 
iGOTO 58 

57 GOTO 51 

58 IF YU<0 THEN YU-OSGOTO 50 

59 IF YU>3 THEN YU-3IG0T0 5 1 

60 IF 1K>=1892 THEN I r - I 99 1 : GOTO 51 

61 IF IK=<1863 THEN IK-18641G0T0 51 

62 IK=IK+QU:GOTO 51 

63 PU-0:FOR F 1 »0 TO 7:PU-PU*1 

64 LI< PU)=< PEEK< KV+CH«8+F1 > > : NEXT Fl 

65 FOR T-O TO 7ITV-01F0R TT=0 TO 7 

66 UE-LK T+l )-2t< 7-TTJ-TV 

67 IF WE<0 THEN NEXT TT 

68 IF UE)«0 THEN POKE< 1 066 + T*40 +TT ) , 

160 

68 IF U£>=0 THEN TV-TV+2t< 7-TT) 
:NEXT TT 

70 NEXT T i POKE KS, 32: GOTO ££ 

71 IF JV-111 THEN GOSUB 134 
7£ JU-i: GOSUB 50 

73 FOR Fl-0 TO 7tBIN-0iF0R F2-0 TO 7 

74 IF PEEKC 1066+Fl*40+F2)-16O THEN B 
IN=BIN+£tC 7-F£) 

75 NEXT F£:POKE KV+C CH*8 ) +F 1 ,B IN 
:NEXT FHPOKE KS ,32 : GOTO 22 

76 FOR F1=0 TO 7: FOR F2=0 TO 7 

77 Z«PEEK< 1066+FHt40+F£) 

78 IF Z»160 THEN PP=3£ 

79 IF Z-32 THEN PP=160 

80 POKE< 1066+F1 »40+F2) ,PP 

SI NEXT: NEXT : POKE KS,3£iGOT0 22 

82 IF YY=4 THEN ER-3£:G0SUB 145 

83 IF YY-6 THEN ER-160 

84 FOR F1=0 TO 7: FOR F£-0 TO 7 
35 POKEt 1066+FH40+F2) ,ER 

86 NEXT: NEXT: GOSUB 95 : POKE KS,32 
:GOTO 22 

37 JH=0:HJ=3iRT=0:DT*---:TB**TT* 
: GOSUB 95 

88 FOR FI-JH TO HJiBI-OlFOR F2=0 TO 7 
88 IF PEEK( 1066 +F 1 *40+F2 )- 160 THEN B 

I=BI+£tC 7-F£) 
30 NEXT F2:RT=RT+1 

91 DT*=DT**STR*< B I > : NEXT FI 
:PRINT"< HOME,RVS ON) " +TB*SPC( 12 )D 
T*:POKE 1316, 160:P0KE 1356,160 

92 JH=4:HJ=7:IF RT>=7 THEN TB«=TT* 
:POKE KS,3£:G0T0 ££ 

33 TB*-TB*+*< CRSR NEO ) " : DT*= ' " 

34 GOTO 88 

35 FOR 1=0 TO U FOR T=0 TO 14 
IPOKE 1317*T+I*40,3£iNEXT:hCXT 
: RETURN 

96 POKE KS,32:K0=I506:SX=0:SY=0 
37 PS*PEEK( KO) : POKE K0,167 

:FOR T=0 TO 20 I NEXTi POKE KO ,PS 
9S JV=PEEK< PE) :W«PEEK< 197) 
33 IF Ul=6 THEN GOSUB 134 : POKE KS . 130 
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:G0TO 40 


131 FOR T=63 I TO 640 s POKE T . 13 I t*EXT 


100 IF JV=126 THEN UE=-40 : SY-SY- 1 


132 POKE 138 ,3i EhO 

— — — — m — 


:G0T0 10S 


1 34 FOR T«0 TO 800 t NEXT : RE TURN 


101 IF JV=125 THEN WE>40: SY=SY+ 1 


135 POKE 52 * 48* POKE 56 ,48 


:GOTO 106 


: POKE 56334 -PEEKt 56334 )AND 254 


102 IF JV-119 THEN UE-HSX-SX+1 


; POKE 1 , PEEKC 1 >ftND 25 1 


iGOTO 106 


136 FOR T=0 TO 36 i READ Dfl 


103 IF JV-123 THEN U£=- 1 : SX=SX- 1 


SPOKE 12 *4036 + T ,Dft I NEXT T 

V WP * life • h» F V W , mirt ■ ™ < »— * * ■ 1 


:G0T0 106 


: SYS 1 2 44096 


104 IF JV-111 THEN GOSUB 134:G0T0 111 


137 POKE 1 ,PEEK< 1)0R 4 


105 GOTO 97 


- POKE 56334 ,PEEK< 56334 >0R 1 


106 IF SY< 1 THEN SY" 1 t GOTO 97 

■ — — w m w — t ■ ■ mm m t ■ n — ■ 


1 38 POKE 53272 PEEK< 53272 > AND 240 >0 


107 IF SY>7 THEN SY=7:G0T0 97 


R 12 t RETURN 


108 IF SX< 1 THEN SX- 11 GOTO 97 


1 33 DATA 169 ,0 * 1 33 * £5 1 , 169 .48 . 133 - 


109 IF SX>26 THEN SX-26IG0T0 97 


252 , 169 - 0 , 133 ,253 .169 .208 . 133 254 


110 K0*K0+WE!G0T0 97 


162 ,0 * 160 

• , , * *fe* *fepr 


11 1 JU=1 i GOSUB 50 


140 DATA 0.177 ,253 * 145 *25 1 .200 .208 . 


112 FOR F 1 =( KV+CH*8)T0< KV+CH»8+7> 


£49 ,230 .252 ,230 .254 .232 .224 . 16 . 


113 POKE F 1 ,255 -PEEKC F 1 ) * NEXT 


208 ,240 ,96 


:POKE KO,CH 


141 DATA £0.5,7,14. 19. 12. 5 .20 . 16 . IS . 


114 FOR F l-< KV+CH*8)T0( KV+CH*8+7> 


48 ,£2 ,8,5.14 .20 .4.1 20 .1.18 22 19 


: A=ft+1 


46 .3.12 


115 POKE F1,255-PEEKCFI)!NEXT:G0T0 97 


142 DATA 18,32, 19, 1 ,22,5,6,25, 12,4, 


116 Lie 1020 


19, 12.21 . 20 .6.15.18.7.18.21 144 


117 L*= " " i 0*= " " i FOR T»0 TO 7 


2.1.7.7.18 


:0*=MIO«< STR*< PEEK< 12288+E*8+T5 > , 


143 DATA 21 .14. 4, 4.1 


2) :L*»L*tD$t", " I NEXT 


144 DATA 20, 1,7,5, 14,5, 18,1 ,20, 15.16. 


1 18 IF E=128 THEN 121 


32 ,5 1 ,46 ,48 ,255 , 195 , 195 , 195 , 195 . 


119 PRINT"< CLR,CRSR NED3) "STR*< LI > "0 


195 , 195 ,255 


ATA"L*"<CRSR VENSTRE ,SPftCE ) 1 


145 JV=PEEK< PE > J IF JV* 126 THEN RETURN 


:PRINT"LI= U LI+1 " lE-'E+l ■ 


146 IF JV=125 THEN FOR F1=0 TO 6 


:G0T0U7CH0ME)" 


^FOR F2=0 TO 25JP0KEC 1506+F1*40*F 


120 FOR T*631 TO 635IP0KE T,13:NEXT 


2 > ,ER s NEXT! NEXT! GOTO 22 


:POKE 198,5:END 


147 POKE KS ,32 :F0R T=0 TO 80 : NEXT 


121 PRINTM CLR,CRSR NE02)" 


! POKE KS , 190 : GOTO 145 


:P0KE 803,246 


148 IF JU=1 THEN CH=PEEK< IKJiRETURN 


122 PRINT"1000 DfiTftl69»0, 133,251 , 169, 


143 IF JU*0 THEN CH =PEEKC IK > * GOTO 63 


48,133,252,169,0, 133,253, 169,208, 


150 POKE KS * 32 s GOTO 22 


133" 


151 POKE 1 1 £5 , 188 - FA* 1 I QR* 1 125 1 0 Y = 0 


123 PRINT-1001 0ATA254 , 162,0 , 160,0, 


152 J V =PEEKC PE J s POKE QR 188 


1 77 ,£53 , 1*45 ,25 1 ,200 ,208 ,249 ,230 , 




252,230 41 


153 IF W=3 THEN GOSUB 134:P0KE OR. 32 


124 PR INT* 1002 DATA254 ,232 ,224 , 16 , 


; GOTO PP 


208,240,96" 


154 IF JV=126 THEN QO= -80 : QY=QY^ 1 


125 PR1NT-1003 P0KE52 ,48 : P0KE56 ,48 


:pa=i iGOTO 159 


: P0KE56334 ,PEEK< 56334 >AND254 " 


155 IF JV* 125 THEN QO =80 ! QY=QY+ 1 1 F A=Q 


126 PRINT"1004 POKE 1 ,PEEK( 1 >flND25 1 


:G0T0 159 


: F0RT*OT036 : REflOD : POKE 12»4096*T,D 


156 IF JV=111 Ar€J FA-1 THEN CL*CL+1 


.•NEXT" 


= POKE 5328 1 .CL i IF CL« 16 THEN CL=- 1 


127 PRINT"1005 SYS12»4096 


157 IF JV=I11 AhC FA=0 THEN LC»Lr+ 1 

tt W 1 ft! W » ft ft ft IT! *U ■ 1 MbM M W L T ft. 


:P0KE1, PEEKC I )0R4 : P0KE56334 , 


- POKE 53280 .LC * IF LC* 16 THEN LC= - 1 

w ■ ^ w t_ w i-' , b w ■ ft ■ H w ft w 1 1 11.1 1 WW * 


PEEK< 56334 >0R1" 


153 GOTO 152 

ft WW WW 1 w * WW 


128 PRINT" 1006 P0KE53272, 


159 IF QY<0 THEN QY=0:G0T0 152 


C PEEKC 53272 JflN0240>OR 121 CC-0 
:F0RT=0T0127" 


160 IF QY>1 THEN 0Y=i:G0T0 152 


161 POKE QR ,32 1 QR"0R+QQ I GOTO 152 


123 PRINT" 1007 FOR I =0T07 : REAOD 


162 PRINT 162-F:PRINT-< BLftft,CLR, 


: POKE 12288 +CC*8+ I ,D t NEXTi CC "CC + 1 


CRSR NED3>"F:PRINT-F--F+1-IL--162- 


-NEXT" 


: IFF< =LT 1 1 62< L . BUflA , HOME ) ■ 


130 PR INT "GOTO 1G2( HOME ) " 


:P0KE 198,2:ENO 
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Speeirum 




Cydes 



Light Cycle er en eftenignlng af det 
racertabsUgnende spll fra filmen 
TRON. Spinet er selvforWarende 
og kra?ver - udover Spectrummen 
• to splllere. 

Det skal oplyses. at hajre. ned. op 
og venstre-pilene i listnlngen re- 
pnEsenten?rhenholdsvis A. B. C og 




i REM >>>>>>>>>>><<<<<<<<<<< -= rJ> 

10 REM >>>> LIGHT CYCLE <<<< 

20 REM >>> BY MN SOFT <<< 

21 REM >>>>>>>>>>><<<<<<<<<<< 
23 LET w-3: LET 1-3 

23 BORDER 0: PAPER 0: INK 0: CLS 

27 RESTORE 

30 FOR q=»2 TO 20: PRINT AT q,Oi INK 4i"B": PRINT AT q,31| INK 4|"B"; NEXT q 

40 PRINT AT 0,01 INK 7!" -»«-|wi" LIGHT CYCLE MN SOFT "ill"-*- - 

30 PRINT AT 1,01 INK 4; ; 

35 PRINT AT 21, 0; INK 4 ; -mHPHHiHMHHHn' i 

60 LET A-PEEK 23673+236*PEEK 23676 

63 FOR B*A TO A+31: READ C: POKE B,C: NEXT B: 

70 DATA 24,12,6,233,233,6,12,24,24,24,24,153,219,126,60,24 
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GAMES 



73 DATA 24,60, 126,219, 133, 24,24, 24,24,48,96, 235,233, 96, 48,24 

90 PAPER 0 

100 LET *Plll LET b=27: LET d— l: LET x-ll: LET y-4: LET m-i 

110 LET LET b«-"-»" 

120 LET c=0: LET n-0 

200 REM >>> SPILLET <<< 

210 INK 6: BEEP .01,6 

240 IF IN 49130=253 THEN LET c-l: LET a**"*": LET d-0 

230 IF IN 61438*234 THEN LET c — l: LET a*-"*": LET d-0 

260 IF IN 37342-234 THEN LET d-l: LET ••■"r: 1 LET c-0 

270 IF IN 57342*233 THEN LET d"-l! LET a»="«-": LET c=0 

280 LET a=a+c: LET b-b+d 

290 IF ATTR (a,b)>l THEN 00 TO 600 

300 PRINT AT a,bia*;: PRINT AT a-c,b-d|" "I 

400 REM >>> aplller 2 <<< 

410 INK 3: BEEP .01,9 

440 IF IN 63278-253 THEN LET n = l : LET b»="4-": LET m-0 

450 IF IN 64510-253 THEN LET n = -i: LET b»-"<t": LET m-0 

460 IF IN 65022*233 THEN LET m*l : LET b«-"4": LET n-0 

470 IF IN 65022*254 THEN LET m— l: LET b»="«-": LET n-0 

480 LET x=x+n: LET y-y+m 

490 IF ATTR (x,y)>l THEN GO TO 700 

500 PRINT AT x,ylb»C PRINT AT x-n,y-mS" "1 

510 GO TO 200 

600 REM >>> DOD <<< 

610 FOR q-1 TO 20: BEEP .01, q: NEXT q 

640 LET l-l-l 

650 IF 1-0 THEN PRINT AT 5,2; INK 0( PAPER 7| 1 VENSTRE SPILLER HAR VUNDET "| 

670 GO TO 800 

690 GO TO 25 

700 REM >>> DOD <<< 

710 FOR q=-l TO -20 STEP -ij BEEP .01, q: NEXT q 

720 LET w-w-1 

730 IF w-0 THEN PRINT AT 5,3| INK 0| PAPER 7| » HOJRE SPILLER HAR VUNDET - | : GO 
TO 800 

760 GO TO 25 

BOO PRINT AT 10,101 FLASH l|"Nyt Bp 1 1 ?": INPUT g» 

810 IF g«-"J" OR g»*"J" THEN RUN 

820 IF g»-"n" OR g«="N n THEN PRINT AT 10, 101 "OK, FARVEL " : STOP 

830 GO TO 800 

900 BORDER 0: PAPER 0: INK 7\ CLS 



910 


PRINT 


AT 


0,.10| "LIGHT CYCLE" 


920 


PRINT 


AT 


3,0| "DIN OPGAVE ER KLAR! " 


930 


PRINT 


*-MUR MODSTANDEREN INDE FOR HAN 


940 


PRINT 


■GOR DET AF MED DIG !*" 


950 


PRINT 


AT 


9,01 "HOJRE SPILLER: " 


960 


PRINT 


"0. 




970 


PRINT 


"P. 


. . . .HOJRE" 


980 


PRINT 


"0. 


VENSTRE- 


990 


PRINT 


"L. 


. . . . NED" 


1000 


PRINT 


AT 


16,01 "VENSTRE SPILLER:" 


1010 


PRINT 


"W. 


... .OP" 


1020 


PRINT 


■s. 


... .HOJRE- 


1030 


PRINT 


"A. 




1040 


PRINT 


■z. 


... . NED* 


1050 


PRINT 


AT 


21, 171 "GOD FORNOJELSE" 


1060 


PAUSE 


1000 


1070 


RUN 
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Amstrad 




Maker 



I dette spil skal du. som fredsakti - 
vlst. flyve hen over en slette og 
sarnie s3 mange raketter op som 
muligt Der er dog andre end dig. 
der er interesserede i rakeireme 
(og af en anden grund ). NSr du har 
VEeret 5 baner igennem, nfirdu til 
et fort, hvor du kan aflevere bom- 
beme til destnjktion. 

Jesper Vitved 




10 REM ** PEACEMAKER JESPER VITVED«* 
20 SYMBX AFTER 241 
30 SYMBOL 244.31.0.55.99,127,3.1.0 
40 SYMBOL 2*5,255.64.252, 198. 194,254,252. 144 
50 SYMBOL 246, 16. 5,56.56,55,124, 198. 130 
60 SYMBOL 250, 16. 124, 56. 18, 124, 144, 40. 3E 
70 SYMBOL 247, 16. 16, 16. 16. 16, 16, 16, 16 
BO SYMBOL 242.0,0.65.99,127.3,1.0 
90 SYMBOL 243,64.64,252.196,194.254,252,144 
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100 fli=" "+CHM<244)*CHW(245H* n :W=CHRi(246):C»=" ■♦DW(2M)«DWH»(2t7)»" "+CHM<242)+CHR*<243) 

!20 ITLn=!:POINT=O:Rfl«T T ER=0:INl=2O: T !D=240:BaNl=O:BfiN2=l 
130 SEN w!NSTRUKRTI0N« 

uo as 

150 SPEED KEY 25.5 

160 LOCATE 1.2:PUINT " "CHM(74)*CHWfBB)*-PEflCEH«KEH" 

170 LOCATE 1.4:PRINT ' I DETTE S b !L ER DU FREDSAtTIVIST. DU SKAL R.YVE I DIN HELIKOPTER HEN OVER EN SLETTE.HVQR DER ER STILLET 
EN HflENG- DE RAKETTER OP. D'SSE RAKFTER SKAL DU SAA SAMLE OP. DU ARBEJDE FORSTYRES DOG' 

180 LOCATE l.9:P1INT 'AF EN NEGET U5YNPATISK HAND. DER IFORT COHBOYHAT(GAET HVEM(RR)) PROVE!) AT SAM- LE DE SAME RAKETTER. HV!S DET 
LYWES FOR HAW AT SAME 3 RAKEHER SER DE 1 SORTUD FOR DIG OG DEN RESTERENDE VERDEN. 

190 LOCATE l,!4:PRINT ' HV1S DU NAAR IGENNEW 5 BANER KOWER DU T!L U FQRT HVQR DU AFLEVERER RAKETTER- NE> SAA DE KAN STAA DER OG 

RUSTE OP. I FORTH FAAR DU OGSAA DIN BONUS. SAA DP ER NED AT RUP°E NEGLENE. RR GAflR HUH-" 
200 LOCATE M9:PRINT "TIGERE OG HURT I GERE FOR HVER BANE. Z:H0JRE X:VENSTRE 

H:H£J5 TRYK K 

210 IF UPPERi'INKEY«)0" THEN GOTO 210 

220 IF UPPER* WEY^OT THEN GOTO 220 

230 SPEED KEY 1. 1 

240 GOSUB 820 

250 B1=NT(RND<1)*33H5 
260 82=1NT(RM)U)«33)»5 

270 IF B2=B1 THEN GOTO 260 

290 B3=!NT(RNDU)«34H5 

290 IF B3=Bt THEN GOTO 250 

300 IF B3=B2 THEN GOTO 260 

310 LOCATE B1.23:PRINT Bt: LOCATE B2.23:PRINT »:LOCATE B3.23:PRINT Bt 
320 REM 

330 REN PEN 6:L0CATE A. B: PRINT E*:PEN 13: 

340 I*=INKEY$ 

350 I«=UPPER»(I$) 

360 IF I*=T THEN A=A+1 

370 IF I*="Z" THEN R=A-i 

380 :f A=0 THEN A=l 

390 IF A=37 THEN GOSUB 770 

400 PEN 6:L0CATE A.B:PRIN T ACPEN 13 

410 IF fl*2=Bl OR A*2=B2 OR A*2=B3 THEN GOSUB 640 

420 IF RFLYT=1 THEN C <♦ 1 : RFLYT ^ : AFTER !N1 GOSUB 780 

430 IF C=40 THEN C=39 

440 °EN 1 LOCATE C,23:PRINT CUPEN 13 

450 "EN 6:L0CATE A. B: PRINT E*:PEN 13 

460 GOSUB 800 

470 IF C*l=Bl THEN (1AKPTER=RAKETTER+1:B:=0:G0S>JR KM 
480 IF C+l^ THEN l»AKETTER=RAKETTEIHi:B2^:GCW!P c, -<' 
490 IF C+!=B3 THEN RAKDTER=RAKETTER+!:B3=i):G0SUB 630 
500 PEN 6:L0CATE A,8:PRINT A*:PEN 13 
510 IF RAKETTER=3 THEN FOR G4=l TO 1000:NEXT G4:G0T0 1050 
520 GOSUB 550 

530 R£H PEN 6:LKATE A.B:PRINT A*:PEN 13 

540 GOTO 320 

550 HEN **SOUND« 

560 FOR S2=l! TO 12 STEP 0.5 

570 SOUND 7.100.1.S2.3.0.10 

580 NEXT 52 

590 REniRN 

600 FOR Sl=100 TO 250 STE° WSOUND 1-S1.3, 15. 10.0,0 

610 icxt SI 

620 RETURN 

630 FOR S2=200 TO 400 STEP 10=SOUND 1.S2. 5. 15. 10, 0,0:NEXT S^RETM 
640 REN **REB NED"* 

650 IF 1$="*" THEN GOTO 660 ELSE RETURN 

6S0 GOSUB 55O:F09 REB1=15 TO 23:L0CATE A+2.REB1: PRINT D*:N£XT REB1 
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GRATIS MED DETTE NUMMER: TO BLADE I EET! 



3 ARGANG. NR 5 - §EPTEM6ER'0KT0BER 1987 - KR 32B5 \ i 

DAN MARKS ENESTE 
SOFTWARE- 
MAGASIN 





K/EMPE-KONKURRENCE: 

VIND DE NYE, DANSKE 
JOYSTICKS! ^ 

KENDT SPIL-FIRMA: 

JAGEDE ROTTERNE UD, 
FOR DE KUNNE 
PROGRA MMERE 



PUIS: 

JULENS 
TOP-SPIL 



r. 




- ACTION: 

10 SHOOT EM OP'S, 
DER SKREV 
HISTORIE 




BAG KUUSSERNE: 

SANTHEDENOM 
TOLKI a l-SPILLENE 



Hent SOFT i kiosken! 

- det nye nummer ligger der fra den 20/8 til den 21/10. . . 



670 FDR REB2=23 TO 15 STEP -ULXATE A+2. REB2:PRINT B* 

690 LOCATE A*2.REB2:PRINT ■ ' 

690 NEXT REB2 

700 GOSUB 550 

710 GOSUB 600 

720 IF A*2=B1 THEN 81=1 

730 IF A*2=B2 THEN B2»l 

740 IF A*2=B3 THEN B3=l 

750 roiNT«P0INT+100 

760 RETURN 

770 GOTO 240 

780 RFJ1 

790 RaYT=l:TIO=TID-l:R£TURN 

800 LOCATE t.2*PRIHT ■POINT:";P0INT:L0CflTE 15.2:PRINT , BOMU5:'sTID:L0D»TE 29,2:PRINT 'RAKETFER!";RflKE T TER' RETURN 
810 GOTO 810 
820 REN **8flNE** 

830 as 

840 BAN2=BAN2+1 

850 PEN 10:FOR BMH«1 TO WHOCflTE BAN1,24:PRINT CHW(131):NEXT BflNltPEN 13 
860 (W»W 

870 IF IND5 THEN IN1=IN1H>.5 

880 IF BflN2=7 THEN GOTO 890 aSE RETURN 

890 GOSUB 800 

900 LOCATE 15.22:PRINT CHR*(147)CHR»(U0)^W<l«)*CHW(143)*CHR»(14O)^CHW(153) 
910 LXATE 16,23:PRINT CH(W147>CHR*<159>^HR*U59)+0W1153> 
920 FOR A=l TO 15:L0CATE A, IMPRINT A»:FOR BAN>1 TO 100:NEXT BAN3 
930 GOSUB 550 
940 NEXT fl 

950 FOR BAN4=U TO 21:L0CATE R.BAN4-l:PRINT " " s'JTAfE A, WN4:PRIIfT »:FOH BflN3=l TO 100:NEX7 BAN3 
960 GOSUB 550 
970 NEXT BAN4 

980 IF TID<0 THEN GOTO 1040 

990 80NI=T1B 

1000 POINT=POIMT+BON1 

1010 LOCATE 17.5:PRINT ■BONUS!" 

1020 IN1=17 

1030 TID=240 

1040 ft=i:BAN2=i:F0R BAN>1 TO lOWNEXT BflN3:G0SUB 820:RETURN 
1050 REM «*SAME OVER** 
1060 CLS 

1070 FOR Gl=100 TO 80 STEP -1 

1080 PLOT SOOtBItlRM 0.100:DRANR -lOO.-lOOiDRAWR -50,0:DRAW ;50.!50:MAhH 0.1 AO: DRAW 50.0:DRAWR 0,-lAQ:DRAWR :50.-150:DRAUR-50-0 

:DRAWR -100,100:DRflHR 0.-100:DRAWR -50.0 

1090 NEXT Gl 

1100 FOR G2=2 TO 24 

1110 FOR G3=l TO 40:LOCATE G3.G2:PRINT CHW«143):L0CATE G3.G2-i:PRINT " ':NEX T G3 

1120 NEXT G2 

1130 LOCATE 1.24:PRINT ' 

1140 LOCATE 15. 9: PRINT "NO PERCE!": LXATE 15,12:°o*v %a*£ OVER'" 
1150 FOR G4=0 TO 1000:NEXT:RUN 
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S pectrum 



Joystick 



troldmand 



Her er noget for dig. som tror, du 
ergod med en plnd«„ undskyld. et 
jojratickl 

Handllngen er simpet: Styr din 
mand gennem den store skov, 
undgS alle traeeme og kom sikkert 
hjem i dit hus. Klarer du det. f3r du 
et point 



N5r du erstartet p3 din tur. kan du 
ikke stoppe. tempoet er n^seknu- 
sende (mod traeme), og enkelte 
gange er det umuligt at n3 ned til 
huset - skoven erjo fyldt med tra?- 
erl I (Som en skovjo nu engang er) t 
F3r du mere end 5 point, vil vi ger- 
ne here fra dig. for s5 m3 du helt 



klart va?re storebror (ikke lille* 
bror) til Superman. Sjovt nok, at 
der elters loves bonus ved 1 0. 20 
og 30 point- 

Hyg dig, ognulkkenogetmedat- 

fuskevedprogrammetshastighed. 

VEU 

Thomas Jacobsen 




ET 

T 

T 



1 GO 
Ni-^IN 

J«30: LET 
UENSTRE: 
S IF Ui= 



1£0 



if 

12 
16 
RIGHT 
PO«0 
19 
19 
20 
30 
40 
50 
51 
53 



IFR 

if r| 

PAPER 1 
0: OUER 



LET 

HI«0: LET 
LINE 
THEN 



K 8° : tk 

PO*0; INPU 

Ul 

00 TO 1 
"HOURE : "; LINE R« 
■"" THEN 00 TO 10 
U$ THEN 00 TO 10 

BORDER 1; INK 7 : 6 
0: INVERSE 0: LET 



CLS LET SC = 14 
FOR ill TO j 
(RND*18) +3 
(RND*32) 
C j INK 4j "4" 



LET DU«1: LET 
SCORE: "i HI; " 



PRINT 



RANDOM IZE 
LET do»0: 
LET r«INT 
LET en INT 
PRINT RT t, 
NEXT i 
LET J»j+1 
IF PO>HI THEN 
HI-PO 
55 PRINT 01;' HIGH 

SCORE : " ; PO 
60 LET hus=XNT ,RND*32. 

RT 21, hus; "ft" 

70 PRINT RT 0,1C; "*," 

80 PAUSE 800 

90 FOR R=l TO 20 
100 LET D«-INKEY« 

103 IF DC-"" OR dloUl AND d|<> 
Rt THEN PRINT RT R-ljSCrY" 

10* IF D«-R« RND SC<31 THEN PRI 
NT RT r-ljftCi "V: LET sc =s c+1 

105 IF D*-U* RND SC>«31 OR d««R 
S BND SC<"0 THEN PRINT RT f-l,SC 

' 106 IF dS-Uft AND SC>0 THEN PRIN 
T RT r-l.fc;^": LET $c»sc-l _ 

120 IF RTTR <r,*C)«12 THEN 00 T 
0 165 

130 PRINT AT f ,*c; 

135 PAUSE 2 

140 NEXT r 

145 IF sc=hus OR d*«"8" AND »c» 
huS-1 OR d*«"5" RND SC-huS+1 THE 
N LET j«J+l: LET t »5 : FOR *■© TO 

69: BEEP .001,*: BEEP .001,69-* 
! NEXT *: LET PO-PO+1 

146 IF poal© OR P0*20 OR PO«30 
THEN CLS PRINT PAPER 6; FLASH 
1; INK 2;RT 10,12;" BONUS! ": PR 

T R Y K 



INT Bl; 



T 

ND*6) 
147 
146 
ISO 
160 

*■* 



EN T A S 
P0«POtINT (R 



PAUSE 0: LET 
+1: 00 TO 17 
IF R-0 THEN 00 TO 150 
LET R«0. GO TO 17 
INPUT 

PRINT AT 21,RND*31, INK 4; 



. 14 



165 CLS PRINT AT 10,11; FLASH 

1; "GAME OUER" 

201 IF DUnl THEN INPUT 
DU HflR HIGHSCORE! ) 
RX 26) : "' LINE N«: LET 



NS=N*< TO 
292 PRINT 
PA: ";HI; 
205 INPUT 
LINE 0$ 
210 IF Q*."" 
IF Q$-"J' 
16 

IF q*="n' 



26) 

AT 0,0; 
PRINT 



■HURRA, 
NAUN <M 



" HIGHSCQREN ER 
RF: "iNl 



"EN GANG TIL (J/N) ?" 



211 
SUB 
212 
OP 

213 
<>" J 
1000 
1010 
U E 
RF 



THEN GO 
OR G* = 



TO 

j" 



205 
THEN 



GO 



OR q»="N" THEN ST 



IF q|<>"n" OR q*<>"N" OR q« 

OR q»o"d" THEN GO TO 205 
REM **#**»**»*##*»*§**#**** 
PRINT PAPER 4;" HOME 5 
E T HOME ! PAPER 6. 



MILA -a- SOFT & DK SOFTUPRE 
PRPER 3, BRIGHT 1," MICHREL 
T P & THOMAS JRKOBSEN . " , BRIGHT 
0, PAPER 7; "I DETTE SPIL Oft_DER 
DE OM AT KOMME MJEM I GOD BEH 

OLD! DET GOR DU UED AT UN 

DGfl TRUERNE.HUIS DU RAMLER IND I 



ET TRI 
HUS. (ft) 
1020 PRINT 
D0REN UED 
103O PRINT 



DOR DU. DETTE ER D IT 

"DU KAN KOMME IND RD 
DISSE UINKLEP ! " 



1035 PRINT 
NfiR 10 P.' 

1036 PRINT 
R S* RYGER 
NUL! 
1060 
1100 
LS ; 

TO USR 
NEXT n 
1110 DATA 
0010,* , *, 126 
DATA 



"DU FAR BONUS 

"PS. HUIS DU 
HIGH SCOREN 



nXr 



DU 



BREAK 'E 
NED Pa 



RETURN 

PRPER 6: BORDER 6 
RESTORE 1110: FOR 
"h"+7: READ \ 



INK 0: C 
n»USR "*" 
POKE n,*: 



24,60, 126, 255, BIN O100 
3?24,24,60,60,126 



24 ,6 



1120 
0 

1130 DRTR 60,60,24, 126, 24, 24, BIN 
100100, BIN 1000010 



1140 DRTR 6,0,6,* ,96,0,96,* 
1150 DRTR 0,8,60,130,23,59,16,0 
1160 DATA 0,16,10,65,232,220,6,0 
1170 DATA 0, 127, 72, fi, 127, 72, 79, O 
1160 DATA 24, 0.60, BIN 1000010,61 
N 1111110, BIN 1000010, *,0 
RETURN 



1190 
9999 CLEAR 

1: RUN 



SRUE "H.S.M 



LINE 



MM 



1^ 



folkebibuotekernes 
dePotbibliotek 



Firebird er en helt ny serie fremragende 
lavoris computerspil. hvor kvalitet og spil- 
leglasde er i en klasse for sig selv. 
Lass hvad den krrtiske engelske presse skrev: 



SILVE 



ft 



.... 



"SlMB 4M 66* 6)» 



RATIO. 



*»1 



^^^^^ 



ZOLYX: »Jeg elsker det - 
Zolyx er fremragende- 
Zzap 64. 

GUNSTAR: »Simpelthen 
rd-suveraent" Soft. 

ZONE RANGER: »Godt 
skuldret - Zone Ranger er 
great stuff- Zzap 64. 

Og sadan kunne vi blive 
ved. Dron ned til din Super- 
Soft forhandler og se de 75 
forskellige FIREBIRD titler. 
Detervlrkelig HOT STUFF. 



V 



^dsa/g 
' Toms. 



Commodore 64 
Amstrad 



*fcsr 



nin 9 



Super Soft forende 

distrihutar siden 1984. 



Telefon OR 13 3? d4 am/ic^r naarmp<tto fnrhandler. 



